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SILICON COMPOSERS 

Introduces the 
World's First 32-bit Forth Microprocessor: 

SC32 Stack- Chip 

Also, the SC/FOX Parallel Coprocessor System32, 

a PC based development system. 




SC/FOX PCS32 (Parallel Coprocessor System32 ) 



SC32 Stack-Chip Hardware Features 



SC/FOX 
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32-bit CMOS microprocessor, 34,000 transistors. 

One clock-cycle instruction execution. 

Non-multiplexed 32-bit address bus and data bus. 

16 gigabyte non-segmented data space. 

2 gigabyte non-segmented code space. 

8 or 10 megahertz full-static operation. 

Stack depths limited only by available memory. 

Interrupt and interrupt acknowledge lines. 

Bus request and bus grant lines with on-chip trist 

Wait state line for slow memory and I/O devices 

84-pin ceramic PGA package. 

MIL-STD-883C Class B version, 3rd quarter 198S 
Unit Price starts at $195. 



Uses the SC32 Stack-Chip microprocessor. 

System speed options: 8 or 10 MHz. 

Full-length 8 or 16-bit PC/XT/AT/386 plug-in board. 

64K to 1M bytes, wait-state static RAM. 

Hardware expansion, two 50-pin strip headers. 

Operates concurrently with PC/XT/AT/386 host. 

Multiple PCS32 board parallel operation. 

PCS32 memory accessible by PC host. 

PCS32 controlled through PC I/O space. 

Data transfer through 16K shared memory window. 

SC/Forth32, interactive Forth-83 Standard with 

32-bit Forth extensions. SC/Forth32 source available. 

Prices start at $1,995 with SC/Forth32. 
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The method for drawing described here generates shapes like footballs, ellipses, and eggs. An oval is 
generated by three radii, variations in which produce several classes of oval objects. And it is just as easy 
W to draw filled ovals... 
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=V FILLING ALGORITHMS - ZBIGNIEW SZKARADNIK 

I M 

J» Filling algorithms are specially suited to Forth because of the ease of using the stack for data storage. The 

® author discusses filling areas of known contour and filling polygons whose vertices are known. 

PDE FULL-SCREEN EDITOR - FRANS VAN DUINEN 
ft 14 

I Another editor, yes, but with differences... multi-file editing, windows, copying screens between files, 

I single-step execution — with stack control — of on-screen words, nested VIEWs, and more. Even if you don ' t 

(g) use F83 (the flavor of this code), you will certainly want to adopt some of the author's ideas. 



ACCESSING 80286 EXTENDED MEMORY - RICHARD F. OLIVO 

19 

IMS-DOS was written for the 80286's "real" mode, leaving 15 unaddressable Mb of memory that is further 
limited by the PC architecture. Even with extended memory cards, a program under MS -DOS cannot directly 
read from or write to such memory. The ROM BIOS does, however, provide a way out. Here are some Forth 
words that access memory well above the one-meg boundary. 
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EXPERT SYSTEM TOOLKIT - MARCOS CRUZ 
23 

Here the author describes his environment in which to write expert systems. It uses a set of Forth words to 
define the rules, questions, and answers one finds in an expert system. There are just three basic steps: define 
the questions, the rules, and at last the order of the rules and the answers they lead to. 
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TWO ASSEMBLERS ARE BETTER THAN ONE - DARRYL C. OUVIER 

30 

The Forth assembler is handy for short pieces of code but cumbersome for large routines. A full-fledged 
macro assembler is ideal for larger routines but messy to implement. Fortunately, we can use a regular macro 
assembler and treat the binary output as a Forth word. 
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Editorial 



Call for Articles: 

FORTH HARDWARE 

Creative Solutions' Don Colbum was 
recently attending a developers conference 
where he met, by chance, one of the Forth 
Interest Group's directors. He suggested 
Forth Dimensions pay for articles about a 
particular theme announced by the editor. 
I'm usually in favor of paying authors, so I 
passed the idea to FIG for consideration 
along with some other items. We didn't end 
up with a fixed policy, but we will try it and 
let the results do the talking. 

Therefore, we are happy to offer pay- 
ments of $450, $300, and $225, respec- 
tively, to the three authors whose articles 
are chosen as best suited for the upcoming 
theme issue about "Forth Hardware." The 
issue is currently scheduled for FD Xl/6. 
We need your theme-related submission by 
November 1 , 1989 to be included in this 
offer. 

I will work closely with our technical 
reviewers to choose articles that merit 
payment and publication in the theme is- 
sue, and those decisions will be final. If an 
article of high quality and interest is not 
among the three selected, Forth Dimen- 
sions may ask to publish it later under our 
standard terms: paymentin the form of peer 
recognition, technical feedback, and a 
couple of free copies. Along with, of 
course, the satisfaction that comes from 
making a contribution to our growing body 
of common knowledge. 

Now is the time to jot down your article 
idea, and maybe a brief outline from which 
to work. Deadlines lurch up unexpectedly 
fast, especially when you want to track 
down the last idea you had while polishing 



that "final" draft and it' s time to prettify the 
code for publication. 

I look forward to hearing from you! 



If you haven' t rushed out to write about 
Forth hardware yet, you probably have a 
few minutes to peruse the rest of this issue. 
Dust off your graphics vocabulary and dig 
into "Eggs, Ovals Easy" (my nomination 
for best original title) and "Filling Algo- 
rithms." The last is by one of our authors in 
Poland, where several items have been 
published about Forth. We have very few 
details, and can only speculate about how 
Forth is being used there and how well it is 
regarded. 

In fact, I received a couple of manu- 
scripts from Poland at about the time Jack 
Woehr's Chapter Coordinator column 
pointed out that Forth interest overseas is 
far from on the wane. Another two articles 
from Spain showed up in the mail that same 
week — one appears in this issue titled, 
"Expert Systems Toolkit." We appreciate 
the efforts of these far-flung fellow Forth 
users, many of whom will be key to the 
future of Forth development around the 
world. We welcome each of them to our 
community — may we learn a great deal 
from one another. 

— Marlin Ouverson 
Editor 
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LETTERS 



Wish List 
Dear FIG, 

One comment I want to give is that we 
should adopt the Modula-2 definition mod- 
ule for specifying all Forth abstract data 
types. This would allow standard libraries 
to be developed from Forth implementation 
modules by using the vocabulary structure. 
Definition modules are readily available 
for lists, priority queues, binary search 
trees, AVL trees, records, B trees, sets, 
polynomials, and graphs. 

Also, I want to see more written about 
using a Forth Prolog interpreter for conver- 
sions between regular expressions, deter- 
ministic and nondeterministic finite auto- 
mata, push-down automata, context-free 
grammars, and Turing machines. 

Some discussion about the limits of 
computability and the Chomsky Hierarchy 
would help set the diverse Forth commu- 
nity on common ground for an even more 
productive future. 

John Howard 

627 N.E. Terrace Drive 

Kansas City, Missouri 641 16 

Curious About Code With Class 

Dear Marlin, 

A significant reward for being pub- 
lished is the comfort derived from knowing 
that your interests are shared by others. I 
now know that Dr. Ayman Abu-Mostafa 
shares my interest in object-oriented Forth 
(OOF). For this I am thankful and relieved. 
Before seeing his letter, I was worried that 
the audience of Forth Dimensions may not 
really be interested in this topic. While that 
possibility remains, at least I have found 
one voice willing to speak up in support of 
OOF. 



I am overjoyed to hear Forth program- 
mers support object-oriented Forth pro- 
gramming. By taking the role of devil's 
advocate and criticizing OOF, I hoped to 
motivate readers to develop better object- 
oriented Forths than have been offered so 
far in the Forth journals. At least some of 
my whines were considered legitimate, 
such as the mixing of postfix and prefix 
notation while manipulating data ("It's a 
bad design"). By the way. Rick Hoselton 
managed to get the syntax correct on the 
first try (See "Object-Oriented Forth" in 
Forth Dimensions X/2). 

Clear progress is being made to over- 
come all the obstacles to OOF. Still, it's 
hard to express an educated opinion regard- 
ing OOF without more published works to 
draw upon. If I had access to as-yet unpub- 
lished works, I might only have positive 
things left to say about object-oriented 
Forth (OOF). 

As further explanation of my point of 
view, realize that the guidance offered in 
my series of articles [FD X/2-5]was the 
design of data structures, not how to best 
produce object-oriented Forth. However, to 
the extent that I observed how well the 
object-oriented programming model re- 
sulted in more portable and reusable de- 
signs, I felt compelled to acknowledge 
OOP and to encourage its study. 

Now back to my provocations: I am 
extremely curious about the implementa- 
tions Abu-Mostafa has come up with to 
support postfix messaging, private and 
public methods, and inheritance. 

Of extreme interest is the embodiment 
of several data and colon-definition decla- 
rations within a structure that looks like a 
super colon definition (delimited by 
: CLAS S and ; CLAS S). What change does 



this make to the Forth landscape? 

I assume that each instance of a class is 
created by honoring each of the data decla- 
rations in the hierarchy of classes. For 
example, fixed -stack creates an in- 
stance object by creating the BOS and TOS 
instance variables inherited from the 
stack class, followed by the maxsize 
instance variable directly declared in the 
fixed-stack class, followed by space 
for the stack itself. Wow! Presumably the 
name fields, such as TOS and BOS, aren't 
recreated with each instance object. 
Rather, those names should become shared 
addressing methods for FLOAT and 
stack classes (as well as any of their 
descendent classes). 

Less inspirationally, there remains the 
need for programmer-supplied typing of 
objects. Abu-Mostafa has provided his 
object-oriented method of taking the aver- 
age of two numbers: 

USE FLOAT 
A @ 
B @ 
+ 2/ 
C ! 

The introductory phrase USE float 
should not be necessary in an object-ori- 
ented language. Because objects such as A 
and B are known to be of a given class, the 
methods for fetching and adding them 
should be automatically predetermined. 
Only those methods owned by an object 
should be available for use, and the use of 
any other methods should result in error 
messages. 

I will stand by my description of stan- 
dard Forth as having a two-stack architec- 

(Continued on page 35.) 
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HSIForth 

EGGS, 

OVALS EASY 

ROBERT GARIAN - ARUNGTON, VIRGINIA 



T 

Ahe method for drawing ovals de- 
scribed here was found in the course of a 
project I was working on that required 
drawing arrows on the screen. An oval is, 
technically, a closed curve bounding a 
convex domain. It applies to curves shaped 
like footballs, ellipses, or eggs. Ovals have 
a certain aesthetic appeal that I find a relief 
from all the straight lines and rectangles we 
usually see on computer screens. 

Figure One shows the underlying struc- 
ture of the method. An oval is taken to be 
generated by three radii Rl, R2, and R3. 
The figure shows the classes of oval objects 
that can be generated by varying just these 
radii. The key word in the source code is 
barc. BARC stands for biradial arc; i.e., it 
draws an arc specified by two lengths, Rl 
and R2. If R1=R2 the arc will be circular. 
As R2 increases, so does the curvature of 
the arc. 



Closed curves bound- 
ing convex domains... 



We can define the OVAL function as 
follows: 

0VAL(R1,R2,R3) = 

{B ARC(R 1 JR2),B ARC(R1 ,R3) } 

where the separate BARCs sweep out the 
northern and southern hemiovals. 

Figure Two shows the typical egg shape 
defined by OVAL (40, 90, 50) . (In this 
demo program, all parameters are positive 
integers.) Figure Three shows a family of a 
dozen eggs sorted by their point height. 



Forth Dimensions 



Figure Four shows a nest of eggs of varying 
girths and point heights. You might like to 
experiment with the source code and mod- 
ify it for applications. It is easy to draw 
filled ovals just by replacing the PIX! 
function with the corresponding line 
function. You may also want to experiment 
with the explicit form of the OVAL func- 
tion, which can be obtained as follows: 
solve the following parametric equations of 
an ellipse for T. 



Y=R2 COS(T)+C 
X=R1 SIN(T)+D 

Take the cosine of both sides, and apply 
the identity: 

COS(SIN 1 (T)) =V^P 
to get 

Y=R2\/1-[(X-D)/R1] 2 + C 



R2 






R1 


R3 





R1=R2=R3=0 Point 

R1=R2=R3>0 Circle 

R2=R3 Rl>0 Symmetrical oval 

R2,R3>0 R20R3 R1>0 . , . Egg oval 

Figure One. Relationship of three radii to geometrical shapes.OVAL (Rl , R2 , R3 ) 



(Text continued on page 35, Figures continued on page 8.) 
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YES, THERE IS A BETTER WAY 
A FORTH THAT ACTUALLY 
DELIVERS ON THE PROMISE 

hs /forth 

POWER 

HS/FORTH's compilation and execution speeds are 
unsurpassed. Compiling at 20,000 lines per minute, it 
compiles faster than many systems link. For real jobs 
execution speed is unsurpassed as well. Even non- 
optimized programs run as fast as ones produced by 
most C compilers. Forth systems designed to fool 
benchmarks are slightly faster on nearly empty do 
loops, but bog down when the colon nesting level ap- 
proaches anything useful, and have much greater 
memory overhead for each definition. Our optimizer 
gives assembler language performance even for 
deeply nested definitions containing complex data and 
control structures. 

HS/FORTH provides the best architecture, so good that 
another major vendor "cloned" (rather poorly) many of 
its features. Our Forth uses all available memory for 
both programs and data with almost no execution time 
penalty, and very little memory overhead. None at all for 
programs smaller than 200kB. And you can resize seg- 
ments anytime, without a system regen. With the 
GigaForth option, your programs transparently enter 
native mode and expand into 1 6 Meg extended memory 
or a gigabyte of virtual , and run almost as fast as in real 
mode. 

Benefits beyond speed and program size include word 
redefinition at any time and vocabulary structures that 
can be changed at will, for instance from simple to 
hashed, or from 79 Standard to Forth 83. You can be- 
head word names and reclaim space at any time. This 
includes automatic removal of a colon definition's local 
variables. 

Colon definitions can execute inside machine code 
primitives, great for interrupt & exception handlers. 
Multi-cfa words are easily implemented. And code 
words become incredibly powerful, with multiple entry 
points not requiring jumps over word fragments. One of 
many reasons our system is much more compact than 
its immense dictionary (1 600 words) would imply. 

INCREDIBLE FLEXIBILITY 

The Rosetta Stone Dynamic Linker opens the world of 
utility libraries. Link to resident routines or link & remove 
routines interactively. HS/FORTH preserves relocata- 
bility of loaded libraries. Link to BTRIEVE METAWIN- 
DOWS HALO HOOPS ad infinitum. Our call and data 
structure words provide easy linkage. 

HS/FORTH runs both 79 Standard and Forth 83 pro- 
grams, and has extensions covering vocabulary search 
order and the complete Forth 83 test suite. It loads and 
runs all FIG Libraries, the main difference being they 
load and run faster, and you can develop larger applica- 
tions than with any other system. We like source code in 
text files, but support both file and sector mapped Forth 
block interfaces. Both line and block file loading can be 
nested to any depth and includes automatic path 
search. 



FUNCTIONALITY 

More important than how fast a system executes, is 
whether it can do the job at all. Can it work with your 
computer. Can it work with your other tools. Can it trans- 
form your data into answers. A language should be 
complete on the first two, and minimize the unavoidable 
effort required for the last. 

HS/FORTH opens your computer like no other lan- 
guage. You can execute function calls, DOS com- 
mands, other programs interactively, from definitions, 
or even from files being loaded. DOS and BIOS function 
calls are well documented HS/FORTH words, we don't 
settle for giving you an INTCALL and saying "have at it". 
We also include both fatal and informative DOS error 
handlers, installed by executing FATAL or INFORM. 

HS/FORTH supports character or blocked, sequential 
or random I/O. The character stream can be received 
from/sent to console, file, memory, printer or com port. 
We include a communications plus upload and down- 
load utility, and foreground/background music. Display 
output through BIOS for compatibility or memory 
mapped for speed. 

Our formatting and parsing words are without equal. In- 
teger, double, quad, financial, scaled, time, date, float- 
ing or exponential, all our output words have string 
formatting counterparts for building records. We also 
provide words to parse all data types with your choice of 
field definition. HS/FORTH parses files from any lan- 
guage. Other words treat files like memory, nn@H and 
nn !H read or write from/to a handle (file or device) as 
fast as possible. For advanced file support, HS/FORTH 
easily links to BTRIEVE, etc. 

HS/FORTH supports text/graphic windows for MONO 
thru VGA. Graphic drawings (line rectangle ellipse) can 
be absolute or scaled to current window size and 
clipped, and work with our penplot routines. While great 
for plotting and line drawing, it doesn't approach the ca- 
pabilities of Metawindows (tm Metagraphics). We use 
our Rosetta Stone Dynamic Linker to interface to Meta- 
windows. HS/FORTH with MetaWindows makes an un- 
beatable graphics system. Or Rosetta to your own 
preferred graphics driver. 

HS/FORTH provides hardware/software floating point, 
including trig and transcendentals. Hardware fp covers 
full range trig, log, exponential functions plus complex 
and hyperbolic counterparts, and all stack and compari- 
son ops. HS/FORTH supports all 8087 data types and 
works in RADIANS or DEGREES mode No coproces- 
sor? No problem. Operators (mostly fast machine code) 
and parse/format words cover numbers through 1 8 dig- 
its. Software fp eliminates conversion roundoff error 
and minimizes conversion time. 

Single element through 4D arrays for all data types in- 
cluding complex use multiple cfa's to improve both per- 
formance and compactness. 2 = (X-Y) / (X + Y) would 
becoded:XY-XY + /IS Z (16 bytes) instead of: X<& 
Y@-X(&Y@ + /Z!(26 bytes) Arrays can ignore 64k 
boundaries. Words use SYNONYMs for data type inde- 
pendence. HS'FORTH can even prompt the user for 
retry on erroneous numeric input. 

The HS/FORTH machine coded string library with up to 
3D arrays is without equal. Segment spanning dynamic 
string support includes insert, delete, add, find, replace, 
exchange, save and restore string storage. 

Our minimal overhead round robin and time slice multi- 
taskers require a word that exits cleanly at the end of 
subtask execution. The cooperative round robin multi- 
tasker provides individual user stack segments as well 
as user tables. Control passes to the next task/user 
whenever desired. 



APPLICATION CREATION TECHNIQUES 

HS/FORTH assembles to any segment to create stand 
alone programs of any size. The optimizer can use HS/ 
FORTH as a macro library, or complex macros can be 
built as colon words. Full forward and reverse labeled 
branches and calls complement structured flow control. 
Complete syntax checking protects you. Assembler 
programming has never been so easy. 

The Metacompiler produces threaded systems from a 
few hundred bytes, or Forth kernels from 2k bytes. With 
it, you can create any threading scheme or segmenta- 
tion architecture to run on disk or ROM. 

You can turnkey or seal HS/FORTH for distribution, with 
no royalties for turnkeyed systems. Or convert for ROM 
in saved, sealed or turnkeyed form. 

HS/FORTH includes three editors, or you can quickly 
shell to your favorite program editor. The resident full 
window editor lets you reuse former command lines and 
save to or restore from a file. It is both an indispensable 
development aid and a great user interface. The macro 
editor provides reuseable functions, cut, paste, file 
merge and extract, session log, and RECOMPILE. Our 
full screen Forth editor edits file or sector mapped 
blocks. 

Debug tools include memory/stack dump, memory 
map, decompile, single step trace, and prompt options. 
Trace scope can be limited by depth or address. 

HS/FORTH lacks a "modular" compilation environ- 
ment. One motivation toward modular compilation is 
that, with conventional compilers, recompiling an entire 
application to change one subroutine is unbearably 
slow. HS/FORTH compiles at 20,000 lines per minute, 
faster than many languages link — let alone compile! 
The second motivation is linking to other languages. 
HS/FORTH links to foreign subroutines dynamically. 
HS/FORTH doesn't need the extra layer of files, or the 
programs needed to manage them. With HS/FORTH 
you have source code and the executable file. Period. 
"Development environments" are cute, and necessary 
for unnecessarily complicated languages. Simplicity is 
so much better. 

HS/FORTH Programming Systems 

Lower levels include all functions not named at a higher 



level. Some functions available separately. 
Documentation & Working Demo 

(3 books, 1 000 + pages, 6 lbs) $ 95. 

Student $145. 

Personal optimizer, scaled & quad integer $245. 

Professional 80x87, assembler, turnkey, $395. 



dynamic strings, multitasker 
RSDL linker, 
physical screens 
Production ROM, Metacompiler, Metawindows 

$495. 



Level upgrade, price difference plus $ 25. 

OBJ modules $495. 
Rosetta Stone Dynamic Linker $95. 
Metawindows by Metagraphics (includes RSDL) 

$145. 

Hardware Floating Point & Complex $ 95. 

Quad integer, software floating point $ 45. 

Time slice and round robin multitaskers $ 75. 



GigaForth (80286/386 Native mode extension) $295. 

HARVARD 
SOFTWORKS 

POBOX69 
SPRINGBORO, OH 45066 
(513)748-0390 
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Glossary 

Special Terms 

biradial arc 

A circular arc is swept out by a single 
radius around a point; a biradial arc is 
swept out by a varying-length line seg- 
ment arrived at using the values of two 
fixed radii. A biradial arc becomes a 
circular arc only when the two radii are 
equal. 

convex 

A plane curve is convex if any straight 
line cuts the curve in just two points. 

hemioval 

The northern or southern part of a gen- 
eralized oval, divided by the equator. 



oval 



A closed curve bounding a convex 
domain. 

pole 

The point at which the height of a 
hemioval is maximum or minimum. 

HS/Forth Words 

FIND <word> 0= ?(...) 

Similar to IF THEN and used to load 
extension modules as needed, i.e. if 
<word> wasn't found. 



VAR 



A word created by VAR has three pos- 
sible actions: return a stored number, 
store a number, or return the address 
where a number is stored. VARs are a 
hybrid between constants and variables. 
If X is a var, then 10 IS X will store 10 
at the address of X, and X alone will 
simply leave 10 thereafter. 



FI 

A loop index used by the coprocessor, 
similar to I. 

FSIN, FCOS, F+, F-, F* 

Math functions directed toward the 
coprocessor. 

S->F and F->S 

Convert single numbers to and from 
floating-point numbers on the respec- 
tive stacks. 



% 



Precedes a number to be put on the 
floating-point stack. 




Figure Two. Typical egg shape. 
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Figure Three. Eggs of increasing point height. 
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Figure Four. Nested eggs of varying point heights and equatorial radii. 



FOR X=D-R1 TO D+Rl STEP .03 
Y1=R3 * SQR(1- ( (X-D) /Rl) ~2) + C 
Y2=R2 * -SQR(1- ( (X-D) /Rl) A 2) + C 
PSET (X, Yl) , 1 
PSET {X, Y2) , 1 
NEXT. X 



Figure Five. The explicit oval function written in BASICA. 
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\ Source code for "Eggs, ovals easy." by Robert Garian, 24Dec88 

\ Written in Harvard Softworks' HS/Forth 3.4 for IBM PC and compatibles 

\ Uses Math Coprocessor. 



? ( FLOAD TRIG ) DECIMAL 



FIND DG->RD 0= 

FLOATS 

FINIT 

DEGREES 

BW640 



VAR C 
VAR D 
VAR Rl 
VAR R2 
VAR R3 

VAR STP 

1 VAR KOLOR 

: ORIGIN 99 IS C 319 IS D ; 



BARC ( TC-ANGLE FROM-ANGLE - ) 
DO FI FDUP 

FSIN R2 S->F % .4166667 F* F* 
FCOS Rl S->F F* 
KOLOR PIX! ) LOOP ; 



F->S 
F->S 



\ Floating pt. & Trig. ftns. 

\ Initialize coprocessor 
\ Compute in degrees 
\ High resolution mode 

\ See Fig.l 

\ 

\ radius 1 

\ radius 2 

\ radius 3 

\ step size 

\ Erase=0 Draw=l 

\ centers oval at (99,319) 

\ Note: .4166667=5/12=aspect 

\ next angle 
C + \ compute corresp . row 
D + \ compute corresp. col 

\ set pixel 



: OVAL ( - ) 
361 181 BARC 
R3 IS R2 
181 BARC ; 

: NEST-OF-EGGS WIPE ORIGIN 
CR ." Equatorial radius is increasing" 
90 IS R3 
30 IS STP 
300 50 DO I IS Rl 

50 150 DO I IS R2 
OVAL 
STP -1 * +LOOP 
STP +LOOP ; 



\ draw northern arc 

\ cross equator 

\ draw southern arc 



\ fixed R3 



\ new Rl 
\ new R2 
\ draw the oval 



: ONE-EGG \ draw an egg to specifications 
ORIGIN 

CR ." Use whole numbers between 10 and 200. Typical egg is 50 100 75." 

CR ." Enter radius at equator: " #IN IS Rl 

CR ." Enter height of NORTH pole: " #IN IS R2 

CR ." Enter height of SOUTH pole: " #IN IS R3 
WIPE OVAL ; 



6 VAR #C0LS 
2 VAR #R0WS 
VAR HJUMP 
VAR VJUMP 
20 VAR Fl 
30 VAR F2 



\ horizontal spacing 

\ vertical spacing 

\ stretch factor 
\ stretch factor 



(Code continued on page 37.) 



$28 
$25 
$35 
$22 
$30 
$22 
$25 
$55 
$25 



FORTH SOURCE 7 



WISC CPU/16 

The stack-oriented "Writeable Instruction Set 
Computer" (WISC) is a new way of harmonizing 
the hardware and the application program with the 
opcode's semantic content. Vastly improved 
throughput is the result. 

Assembled and tested WISC for 

IBM PC/AT/XT $1500 

Wirewrap Kit WISC tor IBM PC/AT/XT $ 500 

WISC CPU/16 manual $ 50 

MVP-F0RTH 

Stable - Transportable - Public Domain ■ Tools 
You need two primary features in a software devel- 
opment package... a stable operating system and 
the ability to move programs easily and quickly to a 
variety of computers. MVP-F0RTH gives you both 
these features and many extras. 

MVP Books - A Series 

□ Vol. l./V/ata/rfCWtf. Glossary 

□ Vol. 2, MVP-F0RTH Source Code. 

□ Vol. 3, Floating Point and Math 

□ Vol. 4, Expert System 

□ Vol. 5, File Management System 

□ Vol. 6, Expert Tutorial 

□ Vol.* 7, FORTH GUIDE 

□ Vol. 8, MVP-F0RTH PADS 

□ Vol. 9, Work/Kale Manual 

MVP-F0RTH Software - A trans 
portable FORTH 

□ MVP-F0RTH Programmer's Kit including 
disk, documentation. Volumes 1. 2 & 7 of MVP 
Series, FORTH Applications, and Starting 
FORTH, IBM, Apple, Amiga, CP/M, MS-DOS, 
PDP-11 and others. Specify. $225 

□ MVP-F0RTH Enhancement Package for 
IBM Programmer's Kit. Includes full screen edi- 
tor & MS-DOS file interface. $110 

□ MVP-F0RTH Floating Point and Math 

□ IBM, □ Apple, or □ CP/M, 8" $100 

□ MVP-LIBF0RTH for IBM. Four disks of 
enhancements. $25 

□ MVP-F0RTH Screen editor for IBM $15 

□ MVP-F0RTH Graphics Extension for 

□ IBM or □ Apple $100 

□ MVP-F0RTH PADS (Professional 
Application Development System) 

An integrated system for customizing your 
FORTH programs and applications. PADS is a 
true professional development system. Specify 
Computer: □ IBM □ Apple $500 

□ MVP-F0RTH Floating Point Math $100 

□ MVP-F0RTH Graphics Extension $100 

□ MVP-F0RTH EXPERT-2 System 

for learning and developing knowledge based 
programs. Specify □ Apple, □ IBM, or 

□ CP/M 8". $175 

Order Numbers: 
800-321-4103 

(In California) 415-961-4103 

FREE 
CATALOG 



MOUNTAIN VIEW 
PRESS 

PO DRAWER X 
Mountain View, CA 94040 
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Forth-83 



FILLING 

ALGORITHMS 

ZBIGNIEW SZKARADNIK - BYTOM, POLAND 



A, 



algorithms making use of a stack 
for storing data are quite often applied in 
practice. However, if a high-level lan- 
guage is used, it is usually hard to imple- 
ment a stack efficiently. This does not 
concern Forth, of course, which is spe- 
cially suited to such algorithms. Filling 
algorithms are very applicable here. 

The task of filling an area may be de- 
fined as follows: 

• Filling an area of known contour (not 
necessarily regular). 

• Filling the interior of a polygon (not 
necessarily convex) whose vertices' 
coordinates are known. 



"Forth is specially suited 
to such algorithms." 



Let us begin with the first algorithm, 
realized as the word Fill in Listing One. 
The algorithm assumes that the closed 
contour of an area is stored in video mem- 
ory, and that the coordinates of a point 
lying within the contour are known. This 
point is called the seed, and its coordinates 
are pushed onto the stack. In the next step, 
the seed point is displayed at a given posi- 
tion and intervals connecting it with the 
contour to the right and left are drawn. At 
that time, the coordinates of the extreme 
points Xlef t and Xright of the contour 
are calculated. Next (Scan) is called, 
which investigates the line above and the 
line below the plotted interval (limited by 
Xle ft and Xright). The investigation's 
effect is to find new seeds, whose coordi- 




Figure One. 

nates are pushed onto the stack. The de- 
scribed actions, as shown in Figure One, are 
repeated until the stack is empty. The Dot 
word — used by F i 1 1 — allows displaying a 
point at coordinates X,Y while Point 
checks to see if the point is displayed. 

The second filling algorithm, realized as 
the word Are a in Listing Two, requires that 
the coordinates of the vertices of a Filled 
polygon be determined. The algorithm does 
not need a bit map of the image, so this 
method is used by some plotters. The con- 
tour must be closed (i.e., the coordinates of 
the first vertex must be identical with those 
of the last). First, the contour is drawn using 



Line. Next, the minimum and maximum 
values of coordinate Y are found by search- 
ing through all the vertices' coordinates. 
This is done by MaxY and MinY. Now, for 
each line Y falling within the determined 
interval, the X coordinates of the intersec- 
tions with all the intervals of the contour 
are found. It can be proven that, for a closed 
contour, the number of intersections with 
line Y=const is even. To fill a contour like 
that, the found points must first be ade- 
quately connected, as shown in Figure 
Two. 

The problem in this case is that the X 
coordinates of the intersections are not de- 
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• cross — points 




Y=<_rmst 



Figure Two. 



Listing One. 



variable 


xleft variable 


xright 


variable 


xr variable 


yr 


: right> 


( — ) 




1 xr +! begin 






xr @ yr @ point 0= while 






xr @ yr @ dot 1 xr +! 






repeat xr @ 1- xright ! ; 




: left> 


( ) 




-1 xr 


+! begin 






xr (3 yr @ point 0= while 






xr S yr S dot -1 xr +! 






repeat xr @ 1+ xleft ! ; 




: (scan) 


( x y . . , 


) 


begin 


xr @ xright (5 <= while 




flag ! begin 




xr 


i? yr @ point 0= xr @ xright ( 


? <= and while 


1 


flag ! 1 xr +! repeat 




flag 


<? if 




xr 


<? yr @ point 0= xr @ xright ( 


? = and if 




xr S yr (5 else xr @ 1- yr <P then then 


xr @ 


begin 




xr 


? yr 8 point xr <? xright @ < 


and while 


1 


xr +! repeat 




xr @ 


= if 1 xr +! then 




repeat 







rived in order. Thus, the coordinates must 
be sorted before the points can be con- 
nected. However, we usually do not know 
a priori how many intersections will be 
obtained. Thus, it is best to store the subse- 
quent X coordinates on the stack, which is 
sorted by S o r t each time a new number is 
pushed onto it. To make the stack sorting 
process more effective, the return stack has 
been applied. The sorting operation is real- 
ized by insertion. The idea of the process is 
that all coordinates smaller than the one to 
be inserted are popped from the stack and 
temporarily stored on the return stack. 
Then the inserted coordinate is pushed onto 
the stack and all the coordinates on the 
return stack are pushed back to the stack. 
After all the intersections are derived and 
sorted, Drawscan connects the points 
whose coordinates are stored on the stack, 
thus filling the polygon. Draw (called by 
Area) draws a line to the point X,Y while 
Plot just moves to the point. 



Call for Articles 
about 

Forth Hardware 

Forth Dimensions will publish an 
issue about Forth hardware in the 
coming months. 

To encourage high-quality article 
submissions, we will be offering 
payment for the theme-related 
articles we publish in that issue. 



1st- 
2nd 
3rd 



$450 
$300 
$225 



Your article is welcome. For 
more, see the "Editorial" in this 
issue. 

Send article, self-addressed 
stamped envelope, and (optional) 
Macintosh or IBM 5.25" diskette: 

Editor 

Forth Interest Group 

P.O. Box 8231 
San Jose, California 95155 
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(Listing One, continued.) 



variable stack 

: fill ( x y — 

sp@ 4 + stack ! 
begin 

yr ! xr ! 
xr @ yr <? dot 
xr e right> xr ! left> 
xleft <? xr ! 1 yr +! (scan) 
xleft @ xr ! -2 yr +! (scan) 
sp@ stack @ = until ; 



Listing Two. 



: points ( yn xn . . . yl xl n 

create do , , loop does) ; 



) 



: .x ( adr n x [ n] ) 2* 2* + <S ; 

: . y ( adr n y [ n] ) 2* 2* 2+ + @ ; 

: line ( adr n ) 

swap dup dup .x swap .y plot 
swap 1 do 

dup dup i . x swap i . y draw 
loop drop ; 

variable pts variable vert 

: sort ( xn . . . xl xi xn . xi . xl ) 

xmin @ begin sp@ stack @ <> while 

2dup < if swap then >r repeat 
begin dup xmin @ <> while r> repeat drop ; 

: maxy ( maxy ) 

ymin @ vert 5 do pts <? i . y max loop ; 

: miny ( miny ) 

ymax @ vert @ do pts <? i . y min loop ; 

: drawscan ( ys ) 

>r begin spi? stack @ <> while r@ plot r@ draw repeat r> drop 

: area ( adr n ) 

2dup line vert ! pts ! 

sp@ stack ! maxy 1+ miny do 

vert © 1- do 

pts (5 i . y pts @ i 1+ . y 

2dup ain j < rot rot 2dup max j >= rot rot 
<> and and if 
j pts @ i . y - 
pts @ i 1+ . x pts <9 i . x - 
pts 9 i 1+ . y pts @ i . y - 
*/mod swap drop pts <? i . x + sort 
then 
loop i drawscan 
loop ; 



BWTE 
FORTH 

INTEL 
8031 

MICRO- 
CONTROLLER 




FEATURES 

— FORTH-79 Standard Sub-Set 
—Access to 8031 features 
—Supports FORTH and machine 

code interrupt handlers 
—System timekeeping maintains 
time and date with leap 
year correction 
—Supports ROM-based self- 
starting applications 



COST 

1 30 page manual — $ 30.00 
8K EPROM with manual— $100.00 

Postage paid in North America. 
Inguire for license or guantity pricing 



Bryte Computers, Inc. 

P.O. Box 46, Augusta, ME 04330 
(207) 547-3218 



Forth Dimensions 



12 



Volume XI, Number 2 



CALL FOR PAPERS 

for the eleventh annual 

FORML CONFERENCE 

The original technical conference 
for professional Forth programmers, managers, vendors, and users. 

Following Thanksgiving, November 24-26, 1989 

Asilomar Conference Center 
Monterey Peninsula overlooking the Pacific Ocean 
Pacific Grove, California U.S.A. 

Theme: Forth and Object-Oriented Programming 

Data structures to support object-oriented program development are readily constructed in 
Forth. This is possible because Forth is an extensible language that has unique properties 
for building data structures. These structures may be reused which increases productivity 
when new applications are developed. Papers are invited that address relevant issues in 
the development of object-oriented programming and object-oriented applications. 

Papers about other Forth topics are also welcome. 

Mail abstract(s) of approximately 100 words by September 1, 1989 to: 

FORML 
P. O. Box 8231 
San Jose, CA 95155 

Completed papers are due November 1, 1989. 

For registration information telephone the Forth Interest Group business office at (408) 
277-0668 or write to FORML, P.O. Box 8231, San Jose, CA 95155. 

Asilomar is a wonderful place for a conference. It combines comfortable meeting and 
living accommodations with secluded forests on a Pacific Ocean beach. Registration 
includes deluxe rooms, all meals, and nightly wine and cheese parties. 
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F83 



PDE FULL-SCREEN 

EDITOR 

FRANS VAN DUINEN - TORONTO, ONTARIO 



Tri; 



is article is about PDE, a program 
editor for Forth (F83 flavour). Yet another 
editor? Yes, but with a few differences. 

The PDE (Program Development Envi- 
ronment) editor is a derivative of the Henry 
Laxen WS-like screen editor 1 , and provides 
many added capabilities, including most of 
those in VED and FSED 2 , two other editors 
derived from the original Laxen editor. 

Over the years, I had adapted the Laxen 
editor to a variety of computers (TRS-80, 
Osborne, IBM PC), and had built in a con- 
siderable number of features for testing and 
debugging. Using that as the backbone, I 
incorporated the best of F s ed and VED and 
a whole slew of further enhancements. The 
result is PDE. 



"It is integrated and 
easy to use." 



PDE provides: 

• editing any number of files 

• copying screens or parts thereof between 
files 

• step-wise execution of on-screen word 
definitions, with inspection and modifi- 
cation of the stack 

• inspection of word definitions (built-in 
SEE and view), with nesting of views 
and return to screen being edited 

• load part of screen 

• upper/lower case and numeric base con- 
version 

• screen insert and delete 

• two-window support, one for screen 
being edited and one scrolling, as for 
DEBUG output 



A W2 -SCROLL INSTALL 
: W2-SCR0LL (S -- ) 

12 AT -LINE 18 AT #OUT OFF ; 

: INSTALL [ <] W2 -SCROLL IS CR ; 

Figure One. Scrolling window on lower part of screen 



: OSCAN (S addr len c - addr' len' ) 

CAPS @ OVER ?ALPHA AND \ Can case matter? 

IF DOP 20 XOR 20VER ROT SCAN \ yes - scan 2 ways 

>R >R SCAN R> R> DUP 3 PICK < IF 2DROP ELSE 
ROT DROP ROT DROP THEN 

ELSE SCAN THEN ; \ no - simple scan 
( USCAN - Case insensitive scan) 



A INSTRING - Find string S within string B - fast 



INSTRING (S sadr slen 

2 OVER >R C@ >R 
ROT - MAX DUP IF 
1+ 

BEGIN R@ 

USCAN . DUP IF 

R> 2 OVER R@ COMPARE 
SWAP >R 
ELSE THEN 
WHILE 1 -1 D+ REPEAT 
THEN R> R> 2DR0P 
-ROT 2DR0P ; 



I ) 



badr blen — > blen' 
\ slen & c to >R 
\ Only if blen >= slen 
\ Length to scan (blen-slen+1) 
\ sadr badr blen' c 
\ sadr badr' blen' 
\ 0=equal, +1 or -1 for not eql 
\ c back to >R 
\ Fix # of parms on stack 
\ Step past matching char 
\ saddr baddr' blen' 
\ blen' - length not searched 



Figure Two. SEARCH for substring, case insensitive. 



INS-STR (S addr len Pos — ) 
DUP >R 2DUP + DUP CHARS-TO-EOL/B 
R> BADDR SWAP MOVE E-UPD ; 



BUF-MV \ Make space (len) 



: REPL (S R-addr R-len Pos D-len — ) 

OVER DEL-CHARS INS-STR ; 

Figure Three. Text insert and replace. 
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: STEP (S — ) ( Executes one word & displays stack ) 

EXTRACT -WD SET-TIB \ Start addr of word in buff 

EXEC-WD \ copy word & execute 

MV-CURS ; \ Restore cursor in CRT screen 

: 2 STEP (S -> ) ( Executes 2 words & display stack ) 

EXTRACT-WD SET-TIB \ Start addr of word in buff 

EXTRACT -WD ADD-TIB \ Addr of next word in buff 

EXEC-WD \ copy word & execute 

MV-CURS ; \ Restore cursor in CRT screen 

Figure Four. Execute one or two on-screen words. 



• multi-screen search capability and more.. . 

This article describes some of the more 
interesting techniques used in PDE to alio w 
others to tinker with and enhance PDE. 
Only a few of the 80-plus screens are cov- 
ered here. 

PDE is in the public domain (non-com- 
mercial use) and its source code is available 
on the East Coast Forth Board [see "Refer- 
ence Section"], Canada Remote Systems 
(416-231-0538) and "other fine bulletin 
boards." That version of PDE (ver 1 .02+) is 
specific to Laxen and Perry 's F83 and to the 
IBM PC. PDE is virtually all high-level 
code and can be readily adapted to other 
systems. 

PDE includes ideas and code from a 
number of public-domain sources, and I'll 
give credit to those sources in the follow- 
ing. 



: DO-WD (S caddr — ?? 

EXTRACT-WD SET-TIB 
0W2AT (EXEC-WD) 



) 

\ Get word pointed to in screen 
\ Go do words 



: SEE-WD (S — ) 

['] SEE DO-WD ; \ Execute SEE against TIB 

( SEE-WD issues SEE against word pointed to) 

: DEBUG- WD (S — ) 

[ ' ] DEBUG DO-WD ; \ Execute DEBUG against TIB 

: (EVIEW) ['] ' DO-WD ( (EVIEW) ) NXT-SCR-FILE ; 

Figure Five. Operate on word under cursor. • 



SDS FORTH for the 8051 

Programming Environment 

□ Use your IBM PC compatible as terminal and disk server 

□ Trace debugger 

□ Full screen editor 

Software Features 

□ Supports Intel 805x, 87C51FA, N80C451, Siemens 80535, Dallas 5000 

□ Forth-83 standard compatibility 

□ Built-in assembler 

□ Generates headerless, self starting ROM-based applications 

□ RAM-less target or separate data and program memory space 

SDS Technical Support 

□ 150+ pages reference manual, hot line, 8051 development board available now 

Limited development system, including PC software and 8051 compiled software with manual, for $150.00. 
(generates ROMable applications on top of the development system) 

inc., 5375 Pare Avenue #210, Montreal, QC, Canada H4P 1P7 (514) 731-5797 
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EXTRACT-WD (S 
BPOS 

MV-RIGHT-WD DUP +CPOS 
-TRAILING 1+ ; 

PROC-WD (S exec-addr 
>R CPOS 
EXTRACT-WD 
R> EXECUTE 



addr len ) 



DISPL-TO-EOL/S 

LWCASE (S — ) 
[ '] LOWER 
PROC-WD E-UPD 

UPCASE (S — ) 
['] UPPER 
PROC-WD E-UPD 



\ Start addr of word in buff 
\ Step to next word in buff 
\ But return length+1 only 

\ Process word under cursor 

\ For DISPL-TO-EOL 

\ Start addr of word in buff 

\ Go process - addr len -> - 

\ Must set E-UPD as reqd 

\ Restore cursor on CRT screen 



Figure Six. Get a word on the screen and operate on it. 



( LWCASE converts one word to lowercase) 
\ Convert to lower case 
\ Apply LOWER to current word 

( UPCASE converts one word to uppercase) 
\ Convert to upper case 
\ Apply UPPER to current word 



: (GET-FILE) (s fcb — ) 

DUP FILE @ <> OVER OR IF \ only if fcb diff and <>0 

SAVE-BUFFERS [ DOS ] ! FILES OPEN-FILE 
ELSE DROP THEN ; 

: MARK-UPD (S — ) 

SUPD @ IF \ Any changes made? 

SCR @ BLOCK DROP \ Make block current 

& SET-ID @ IF STAMP THEN \ Set datestamp if wanted 
1 BUFFER* 4 + @ &BADDR @ <> ABORT" Buffer error" A test 

UPDATE &UPD OFF THEN ; \ Set updated flags 
Figure Seven. Multi-file editing made easy. 



: ( (EVIEW) ) (S code-addr — file curs scr ) 

eviEW ?DUP \ Get word's VIEW field 

IF 2* VIEW-FILES + @ 2+ \ scr # & FCB addr 

ELSE [ DOS ] FCB1 THEN 

ROT ; \ Set to cursor loc 

: (EVIEW) [ M ' DO-WD ((EVIEW)) NXT-SCR-FILE ; 

: FIX ' ((EVIEW)) OTH-INIT (NXT-SCR-FILE) (E) ; 
Figure Eight. View/editscreen where word is defined. 



: (eSOURCE) 

BLK @ IF GET-SUB-BLK DROP ELSE TIB #TIB @ THEN 

: eLOAD (S — ) 

6W2AT ['] (eSOURCE) IS SOURCE 
FILE @ >R BLK @ >R >IN @ >R 
2 TAGS BLK ! >IN ! DROP RUN 
R> >IN ! R> BLK ! R> [ DOS ] 1FILES 
FIX-SOURCE 
Figure Nine. LOAD partial screen from within editor. 



: GET-CUR-ADDR (S curpos Scr# fcb — addr >in ) 
FILE @ >R (GET-FILE) BLOCK 

R> (GET-FILE) ; \ Assumes multiple block buffers 

: GET-SUB-BLK (S — addr len >in ) 

2 TAG@ ROT GET-CUR-ADDR 

3 TAG@ DROP NIP ROT ; 

Figure Ten. Get sub-block's address, make sure it's in memory. 



Self-Contained Editor 

PDE is self contained and does not need 
the traditional F83 editor vocabulary. 
Instead, screens 5B-5E (all numbers in 
hex) are adapted from F83 3 screens 0C-1B 
of the file UTILrTY.BLK. From there 
comes the scrolling window, where the top 
12h lines of the CRT display the screen 
under test, while the lower portion scrolls 
to allow debug output, etc. 
Figure One shows the two words that take 
care of scrolling, W2-SCR0LL and in- 
stall, which installs W2 -scroll as 
CR. W2 -SCROLL (adapted from 
editor's . all on screen 13), uses 
-line to delete the top line of the second 
window, causing everything below it to 
scroll up. 

Note that this form of windowing 
works by preempting the PC's ROM rou- 
tines from scrolling the whole screen. As 
long as CR is used to force a new line, we're 
okay. When we output a line of more than 
50h characters, or one that includes charac- 
ters OD or OA, the whole screen scrolls and 
our windowing gets messed up. That is one 
reason I'm using a version of . S that only 
displays the top six items on the stack, and 
thereby avoids line wrap on the display. 
(This . S also handles stack underflow — it 
is found in screen 5A.) 

The other words from EDITOR are 
cursor addressing and GET- id, etc. get- 
id (screen F) uses the system clock; it does 
not require a hardware clock. Simply set 
the PC's system date using the usual DOS 
command. Most of the supporting code on 
screen five is lifted from fsed. 

Search Capability 

The original Laxen editor used SCAN+ 
and SCAN- for forward and backward 
scanning to find a character; SCAN+o 
and SCAN-<> to scan for the first occur- 
rence of anything other than the character. 
These were high-level definitions and, 
given their frequent use, kind of slow. 

F83, of course, has a machine code 
SCAN and SKIP, which are the same as 
SCAN+ and SCAN+<> respectively, 
though with some stack differences. 
Screens six through eight implement a 
machine-language version of SCAN- and 
SKIP- for both 8086 and 8080 assembler. 

Also included in screens nine and OA 
areUSCAN and INSTRING (Figure Two), 
which together are a faster version of 
SEARCH. Both INSTRING and SEARCH 
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can do a case-insensitive search (where 
upper-case and lower-case characters are 
acceptable). 

search uses compare against every 
possible substring. For instance, if looking 
for a five-character string within a 400h 
character block, it would compare the 
search string against characters one 
through five of the block, then against two 
through six, then three through seven, etc. 
More than a thousand times! 

INSTRING goes on the basis that we 
firstlook for the first character of the search 
string, then see if the rest matches. Since the 
machine-language SCAN is so much faster 
than a high-level loop, we gain. Of course, 
if we're looking for a string starting with a 
blank in a screen that's 75 percent blanks, 
we don't gain all that much. 

For an even faster SEARCH, look at the 
machine-language version published in 
Forth Dimensions.* That version is case- 
sensitive, however. It also returns the abso- 
lute memory address where the substring 
was found, rather than the offset in the 
block as returned by the F83 SEARCH. 
instring returns the length "not 
searched," i.e. , the offset relative to the end 
of the block. Hence the different name: it is 
not identical to SEARCH. 

INSTRING is used by the multi-screen 
search capability (*QF in good WordStar 
fashion), the heart of which are QF 1 and QF 
in screen 41. Not implemented is a search- 
and-replace function ( A QA), even though 
the primitives exist (INS-STR and REPL 
in screen 26; see Figure Three). 

INS-STR uses CHAR-TO-EOL/B to 

determine the number of characters to the 
end of the line or block. (When you insert a 
string, the text to the right of the insertion 
point has to be moved over, with truncation 
occurring at the end. Similar to deletion, 
padding occurs at the end.) PDE will sup- 
port truncation/padding at either the end of 
the line, or at the end of the block (or any 
number in between; see spagel, line- 
mode, and block-mode in screen 12). 
The Laxen editor supported only end-of- 
line truncation. Thus, if text was bumped 
past the end of the line, it was lost 

By supporting end-of-block truncation, 
anything bumped off one line gets carried 
over to the next. Itdoes mean, however, that 
the entire rest of the screen may change and 
need to be re-displayed, which makes this 
mode too slow for normal use. 



Execution of Words on the Screen 

One of the powerful features of PDE is 
that it can take words off the screen, move 
them to TIB (the keyboard input buffer), 
and then interpret them. The idea for this 
originally came from Tom Blakeslee 5 , 
whose code I had adopted as-is; when I 
started factoring his code into smaller 
words, it became really interesting! 

STEP (screen 45) was the original word 
(see Figure Four). The basic process is: 



EXTRACT-WD 

Get the memory address and length of the 
word (character string) where the cursor 
is at on the screen, and skip past it. 

SET-TIB 

Copy that string to the TIB and set # TIB 
accordingly. 

EXEC-WD 

Issue interpret to handle the textstring 
now in TIB, showing the stack after- 
wards. 

Now, by factoring EXEC-WD into an 
(EXEC-WD) that can execute words other 
than interpret, we can easily do some 
interesting stuff, such as see a word, 
view/ F IX or debug a word — see Figure 
Five. Note that the approach taken is not to 
redirect SOURCE, since any errors would 
"hang" the system — see eLOAD below. 



Similarly, EXTRACT -WD , which re- 
turns the memory address and length 
(minus trailing blanks) of the word (text 
string) under the cursor (and moves the 
cursor to the next word), makes it easy to 
implement other transformations, such as 

LWCASE, UPCASE and NUM>NUM, for 

case or number base conversion; see Figure 
Six. 

PROC-WD sets everything up, then 
executes the word whose code field address 
(CFA) is passed and re-displays the screen 
(from the original cursor position). Note 
the use of displ-to-eol/S in PROC- 
wd to allow for actions that affect more than 
just the current screen line. 

The word LOWER in LWCASE is similar 
to the F83 code word upper, except it 
changes alphas to lower case. 

Multi-File Editing 

F83 maintains its block buffers by using 
a list of buffer headers that describe where 
in memory the block is, etc. The buffer 
header also contains a pointer to the FCB 
(File Control Block) for the file that con- 
tains this block. 

block, the word to read a specified 
block, passes to (BLOCK) — the primitive 
that actually brings in the wanted block (or 
locates it, if already in a buffer) — the ad- 
dress of the FCB to use (from the pointer 

FILE). 
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That made it very easy to implement 
multi-Hie capability. Simply set FILE to 
point to a different FCB, make sure the file 
is open (open-file), and issue BLOCK. 
(Get-file) in screen 34 and Figure 
Seven does that. 

Well, almost that easy. If the current 
block was changed, update has to be 
executed before issuing BLOCK again, 
because it always applies to the current 
block — the one in the first position in the 
buffer header list. 

There appears to be yet another prob- 
lem. At least some updates to ablock would 
not be written out when switching between 
files. The save-buffers in (Get- 
file) and the extra code in mark-up D 
(Figure Seven) should not be necessary, but 
seem to have fixed the problem. 

Another place where multi-file capabil- 
ity had an impact was in the TAGS, fsed 
used five to six fields to note a specific 
screen and line number, e.g., to mark a spot 
for fast return, or to mark a block or range 
of lines for copying. PDE extends this in 
two ways. Firstly, every TAG includes the 



FCB for that block; secondly, every tag 
includes the exact cursor location at the 
time the tag was noted. 

PDE also maintains a circular TAG list 
of the last ten screens edited. This allows us 
to quickly revisit screens or to return from 
inspecting definitions of words (eview). 

A very powerful capability in PDE is 
on-screen VIEW (EVIEW, screen 47, Fig- 
ure Eight). While (EVIEW) is simply an 
adaptation of F83's view, it is important 
because it is integrated and easy to use. 

Say you're writing a new definition that 
uses search, but don't remember what 
search needs/leaves on the stack. Simply 
position the cursor at the start of the word 
search on the screen (which you had 
typed as part of the definition you're creat- 
ing), press A F5 and, presto, you're looking 
at the screen on which SEARCH is defined 
(screen OA in UTILITY.BLK), including 
the comment that describes its stack effect. 
Use A PgDn to get to its shadow. 

If you want more detail, such as about 
the word \ STRING that SEARCH uses, 
point, press A F5 again, and you're looking 



at screen 3F of KERNEL86.BLK. A re- 
peated A F6 gets you back where you were. 

Of course, all of this supposes that the 
words you're looking up (SEARCH and 
\ STRING, in our example) are "visible" 
in a context vocabulary, and that you used 
views , etc. when originally loading those 
definitions. And, yes, it supposes you have 
a hard disk to have all your permanent 
source files on line. If not, get one; this 
feature alone makes it worthwhile: on-line 
documentation for your entire Forth envi- 
ronment! 

Load from the Editor 

Occasionally you want to LOAD only 
part of a screen, such as when you're cor- 
recting the second or third definition on a 
screen. PDE has the ability to mark the 
beginning and end of a section of a block 
( A F6, A F8) and then issue the eLOAD com- 
mand (see Figure Nine). 

eLOAD works by setting the SOURCE 
that F83 uses (for load as well as for 
INTERPRET). (eSOURCE) is similar to 
the regular (SOURCE) in that it can accept 
input from TIB as well. While eLOAD 
never uses input from that source (it sets 
BLK), it is very important. 

If there were an error in the (sub) block 
being loaded, F83 would ABORT /QUIT 
and reset for keyboard input. It would not 
reset S OURCE , however, but would look to 
(eSOURCE) for input If (eSOURCE) 
did not allow for keyboard input, you'd 
have F83 waiting for keyboard input with- 
out ever seeing any. 

(eSOURCE) uses GE T - SUB -BLK 
and GET -CUR- addr (Figure Ten) to re- 
turn the address and length of the marked 
section, where 2 TAGS and 3 tag@ 
define the screen number, FCB, and cursor 
for the start and end of the section. Note 
how GET-SUB-BLK and GET-CUR- 
addr return an address in two compo- 
nents: start of block address and offset of 
start of sub-block within that block. That 
drastically simplified the implementation 
of (eSOURCE) , since it allows us to use 
>IN to tell F83 "we've already processed 
that portion of the block." 

Miscellaneous 

A few other techniques are of note: 
eKEY in screen four handles the PC's 
peculiarity of returning certain keystrokes 
as two characters (the "extended" keys, 

(Continued on page 35.) 



Employment opportunity for a Forth programmer 
with two to three years of real-time systems ex- 
perience and knowledge of an assembler lan- 
guage for interrupt processing. 

The programmer will join a small work group with 
a progressive company in Manchester, New 
Hampshire. This company develops dedicated 
data acquisition systems with embedded micro- 
processors. It is part of a US firm with world-wide 
manufacturing and distribution. 

Please send your resume and salary history and 
requirements in confidence to: 

Mr Manfred Peschke 
Intersystems® Company 
RFD 3 Story Hill Road 
Dunbarton 
Goffstown NH 03045 

who is conducting this search for his client. 
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Forth-83 

ACCESSING 80286 

EXTENDED MEMORY 

RICHARD F. OLNO - NORTHAMPTON, MASSACHUSETTS 



A though the 80286 processor is 
capable of addressing up to 16 Mb of 
memory in its protected mode, MS-DOS — 
for reasons of downward compatibility — 
was written for the processor's "real" 
mode. That mode has an absolute limit of 1 
Mb of address space, which is further lim- 
ited by a PC architecture that reserves the 
upper 384 Kb for special purposes. As a 
result, MS-DOS programs have access to a 
maximum of 640 Kb of address space. 
Even though one can plug so-called ex- 
tended memory cards with addresses above 
1 Mb into a PC/AT, a program under MS- 
DOS cannot directly read from or write to 
such memory. This is, of course, not a good 
thing. 

The ROM BIOS in a PC/AT does, 
however, provide a way out A service at 
interrupt 15 (hex), function 87 moves 
blocks of data between extended memory 
and DOS-accessible memory. Prior to call- 
ing this function, a Global Descriptor Table 
(GDT) that lists the source and destination 
addresses must be set up in memory, and 
the table's own address must be placed in 
the 80286's registers. I describe here some 
Forth words that use interrupt 15 to access 
extended memory. My own need for this 
code arose while working with a video 
digitizer (Data Translation's DT2851 
frame grabber) in an application where I 
wanted to manipulate an image directly. 
The digitizer has two on-board image buff- 
ers, each 256 Kb in size and each capable of 
holding a 512 x 512 x 8-bit image. Obvi- 
ously, this total of 5 1 2 Kb of image memory 
cannot readily be placed in MS-DOS' 
measly 640 Kb, since that would leave es- 
sentially no memory for the operating sys- 
tem and programs. In fact, the digitizer's 



default address settings put the two image 
buffers at (hex) AO 0000 and A4 0000— 
well above 10 0000, the 1 Mb boundary. 
To be able to inspect and manipulate im- 
ages, move them to disk, and do other 
operations that require direct access to the 
digitized image, it was necessary first to 
move part of the image down into DOS- 
accessible memory. (This is the same tech- 
nique used by standard software for ex- 
tended memory cards.) The largest block of 
data that interrupt 15 can move is one 
segment, or 64 Kb; thus, a 256 Kb image 
would have to be treated as at least four 
separate segments. However, I actually 



"The same technique 
is used for memory 
cards" 



found it more efficient to move one video 
line at a time (512 bytes). The main reason 
is that in our implementation of Forth-83 
(Uniforth from Unified Software Systems), 
it is much easier to perform subsequent 
operations on data that is held in the same 
memory segment as the Forth dictionary, 
rather man to use the more cumbersome 
and time-consuming procedures that ma- 
nipulate data held in other segments. Con- 
sequently, the application examples de- 
scribed below all work with single video 
lines. 

The most generic of my Forth words are 
shown on screens 1 and 2, GDT is a48-byte 
array that will hold the Global Descriptor 
Table. MAKE -GDT sets up the descriptor 
table, based on 32-bit double addresses for 



the source and destination, and a 16-bit 
count of the number of bytes to be moved. 
(The table actually requires 24-bit ad- 
dresses but, for convenience, 32-bit opera- 
tors are used and the highest-order byte is 
later overwritten.) The addresses are cal- 
culated by subsequent words in the list- 
ings. The code word int 1 5, written in as- 
sembly language, calls the BIOS interrupt 
to move the data, int 15 requires 16-bit 
addresses for the start of the descriptor 
table and the table's segment, and for the 
number of words (not bytes) to be moved. 
(In Uniform's 8086 assembler, unlike 
Intel's assembler, the syntax of instruc- 
tions like AX si MOV follows the Forth 
practice of first giving the source, then the 
destination, then the action.) Both MAKE- 
GDT and INT15 are general-purpose 
words that can be used to move any batch 
of data in any direction. 

The use of these words is illustrated in 
excerpts from an imaging application on 
screens three through nine. A 512-byte 
array (VIDLINE) is created in the Forth 
dictionary to hold one video line. Absolute 
32-bit addresses for this array and for the 
image buffers, required by make-Gdt, 
are calculated by words in screens three, 
four, and six. (Some of the defining words, 
like dseg and SEG>ADR, are specific to 
Uniforth.) New Forth words that move 
single video lines are dict>vline 
(screen five), which copies the vidline 
array from the dictionary to the image 
buffer; and VLINE>dict (screen six), 
which copies video line Y from the image 
buffer to the array. These words are typi- 
cally used in the opposite order from 
which they are presented: a video line is 
moved from the image to the dictionary, 
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manipulated, and then moved back to the 
image. Since a video line is usually re- 
placed at the same location it was taken 
from, dict>vline does not automati- 
cally recalculate the Y-value address. (This 
lack of symmetry was adopted for speed, 
but it strikes me as a potentially risky 
programming style.) A few words that act 
on images are shown as examples in screen 
seven. ! pixel and @ pixel access a 
single pixel (picture element); when one 
considers how much hidden work these 
words invoke, screen seven may also be 
taken as a commentary on the disastrous 
architecture of Intel processors. Neverthe- 
less, filling the screen (VFILL) takes only 
about a second. 

Transferring images to and from disk 
(screens eight and nine) is an example of 
the more general task of moving data be- 
tween a disk and extended memory. The 
"save" routines utilize a loop that copies 
each of an image's 480 lines into the 
vidline array, from which the line is 
written to disk. (The disk-handling words 
are from Uniforth.) The real work of copy- 
ing images is carried out by the intermedi- 
ate-level words IMAGE>DISK and 
disk>image; the high-level words 
save and res tore handle the additional 
tasks of specifying filenames, and opening 
and closing files. 

(Screens on next page.) 



Richard F. Olivo, a neurobiologist, is a 
professor at Smith College. He uses 
Forth for laboratory-oriented imaging 
and analog data acquisition. He is cur- 
rently programming a PC/AT data 
acquisition system with drop-down 
menus, dialog boxes, and other Macin- 
tosh-like tools. He wishes Forth had 
standard extensions to make such ef- 
forts unnecessary. 
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NGS FORTH 

A FAST FORTH, 
OPTIMIZED FOR THE IBM 
PERSONAL COMPUTER AND 
MS-DOS COMPATIBLES. 



STANDARD FEATURES 
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•79 STANDARD 

•DIRECT I/O ACCESS 
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NEXT GENERATION SYSTEMS 
P.O.BOX 2987 
SANTA CLARA, CA. 95055 
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# o 

\ ACCESS TO 80286 EXTENDED MEMORY UNDER MS-DOS. 

Uses interrupt 15, function 87 : 

Swaps block of data between PC/AT' s extended memory 
(addresses above 1 MB) , and DOS-accessible memory below 640K. 
Based on James T. Smith, IBM PC AT Programmer's Guide (1986) 
section 10.4: "Using extended memory." 
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# 1 

\ WRITE GLOBAL DESCRIPTOR TABLE (GDT) 
decimal 

create GDT 48 allot \ Global descriptor table for INT15 



: MAKE -GDT ( src-daddr dest-daddr #bytes 

\ daddr: uses 32 bit address, eg. source 00A0 0000 

\ #bytes: bytes moved can be up to 6 4K (1 segment) 



) 



GDT 48 erase 
dup GDT 16 + 
GDT 24 + 
GDT 26+2! 
GDT 18+2! 
147 GDT 21 + 
147 GDT 29 + 



\ Fill entire table with 00 
\ Store source length, #bytes 
\ & destination length, #bytes 
\ Store destination address 



\ 



4 source address 



\ Store access-rights byte $93, =147 dec 



\ 



in two places in GDT 



# 2 

\ INTERRUPT 15 CODE: moves data, using GDT 
hex 

code INT15 ( gdt.addr segment #words — status | 0=success) 

CLI, \ disable interrupts (time of day clock) 

BX CX MOV, \ #words from top-of-stack (=BX) to CX 

AX POP, \ GDT' s (-dictionary' s) segment 

AX ES MOV, \ GDT segment into ES 

SI DX MOV, \ save SI, Uniforth' s interpreter pointer 

AX POP, \ GDT' s address (=offset in segment) 

AX SI MOV, \ GDT offset into SI 

00 # AL MOV, 87 # AH MOV, \ function # $87 to AH 

15 INT, \ call interrupt 15 

DX SI MOV, \ restore SI 

AH BL MOV, \ put status code on tos 

00 # BH MOV, \ clear high byte, tos; restore intrupts 



STI, NEXT, END-CODE 



decimal 
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# 3 

\ APPLICATION: Copy to/from video frame-grabber (DT2851) 
\ CONSTANTS, ARRAYS & VARIABLES 

\ Frame-grabber has 2 buffers, each 256KB, starting at address 
\ 00A0 0000 in extended memory. We will access these one video 
\ line at a time (512 bytes/line) . 



SCR 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

11 \ GDT requires 32-bit addresses, =>double constants & variables 

12 \ Absolute address of vidline array in Forth dictionary: 

13 dseg vidline seg>adr \ Segment & offset of vidline array, 

14 2constant VIDLINE (DADR) \ converted to 32-bit (daddr) const. 

15 -> 



decimal 

512 constant PIXELS /LINE 
create VIDLINE pixels/line allot 



\ In Forth dictionary, make 
\ array to hold 1 video line 
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# 4 

\ CONSTANTS & VARIABLES: ADDRESSES FOR DT2851 IMAGE BUFFERS 
hex 

\ Absolute 32-bit addresses of DT2851 image buffers & 1: 
00A0 0000 2constant BOFFER0 \ daddr of bufferO 

bufferO 4 d+ 2constant BUFFER1 \ daddr of bufferl 

2variable CURRENT -VLINE \ daddr of active video line 

\ Automatic calculation of active buffer' s address : 

( ?out-buf returns or 1 to indicate active output buffer) 

: CURRENT -BUFFER ( — daddr ) \ active image buffer 

?out-buf 4 * bufferO d+ ; 
: OTHER-BUFFER ( — daddr ) \ inactive image buffer 

bufferl ?out-buf 4 * d- ; 



# 5 

\ COPY ONE VIDEO LINE FROM FORTH DICTIONARY SPACE TO IMAGE 

\ Requires previous calculation of current -vline (next screen) . 



decimal 

: DICT>VLINE ( — ) 

vidline (dadr) 
current-vline 2@ 
pixels/line 
make-GDT 

GDT dseg pixels /line 2/ 
intl5 

dup not if drop 

else ." Error:" . quit 

then ; 

-> 



\ Move one line up to image. 
\ source: constant daddr of vidline 
\ destination: prev calc'd daddr 
\ #bytes: pixels on one line 
\ write GDT 

\ gdt addr & segment, #words 
\ call intl5 

\ then test status: 0=ok, drop code 
\ if error, print code, & quit 



(Screens continued on page 28.) 
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FORTH 
Development Tools 
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Z8874 Super8 
FORTH chip 



♦Development Board 

Incorporating the Super8 FORTH 
microcomputer, offers an unparalleled 
development environment for control 
applications. With the addition of just 
a 5 volt power source and terminal, 
you can develop serious applications 
swiftly and interactively in a nearly 
full implementation of F83 FORTH. 

♦Metacompiler 

FORTH program that runs on an IBM 
compatible, that creates an image of 
a SuperS FORTH complete with the 
programmer's application and can be 
downloaded to the SuperS emulator 
for testing. 

♦Development ROMs 

Enable you to compile FORTH code 
directly using any of the 3 types of 
SuperS's available from Zilog. The 
Super8 contains a serial interface 
that can be connected to a terminal 
or PC for direct loading of source 
code. 



For more information 
call (415) 591-8295. 

Inner Access 
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EXPERT SYSTEM 

TOOLKIT 

MARCOS CRUZ - MADRID, SPAIN 



VJ ISIFOrth is an environment in 
which to write expert systems. It is not a 
program to make expert systems, but a 
toolkit with which to make them. Once 
SISIFOrth has been loaded, we can make 
use of a set of new words to define the rules, 
questions, and answers. I will try to explain 
how. 

Before writing an expert system, of 
course, we have to design it When that is 
done, we can build it using SISrFOrth. 
There are three steps on the way: define the 
questions, the rules, and at last the order of 
the rules and the answers they lead to. 

"We can think of SI- 
SIFOrth rules as 
Prolog sentences/ 



Each question of the expert system is 
stored in any line of any screen. To define 
a questions, the word QUE s T I on has to be 
used in this way: 

sn In QUESTION q_name 

where s n is the screen number of the text of 
the question, In is the line number on that 
screen where the question is found, and 
q_name is the question's name. 

A rule is a number of conditions that, if 
all of them are true, leads to an answer. 
Each rule is just a word, defined in this way: 

: rule_name 
( ( questionl 
& quest ion2 ) ) ; 



: TASK 

128 CONSTANT QUESTIONS < array lenght) 
VARIABLE ANSWERS QUESTIONS ALLOT < Array) 
VARIABLE NS< 
VARIABLE NQ 

. TITLE CR ." SISIFOrth environment V2.00 

SIBIFORTH_OK 

ANSWERS QUESTIONS ERASE ( erases array) 



. CPU 



CLS .TITLE CR 



Bv 



Marcos Cruz 
—-flag) 



198S, SFA IN " CR 



i , asc 

i . asc 

i , asc 

i . asc 



*SC 4 



Y/N 
CR 

BEGIN 
KEY 

DUP DUP 

83 = 

SWAP 

78 = 

OR 

NOT 
WHILE 

DROP 
REPEAT 

( Y or N typed) 
S3 = DUP 
IF 

. " >Yes" 
ELSE 

." >No" 
END IF 

ABS ( converts -flag 
CR 

( I-f "Y" has been typed, -flag=l) 
( I-f "N" has been typed, -flag=0) 

QUESTION 



( asci i ) 
( asc 
( asc 
( asc 
f asc 
! asc i i , 
( asci 
( asci i ) 
< ) 

( asc i i ) 

( ascii =83' 

( ascii =83" 



-1 to 0/ 



i . asc i i ) 
i , asc i i =83?) 
i=ai- n , ascii) 
i-83?, ascii =78?) 
scii=B3 OR asci i =78?) 

83 AND ascii<>78?) 



=83?) 
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CREATE 




! screen , line) 










( screen) 






c. 




< ) 






1 NQ DUP @ 




( 1, NQ address. NQ 


content ) 








! 1 . NQ address) 






+ ! 




( ) 






( Each word 


ere 


ated by QUESTION! star 


es: ) 




( line o-f its t 


ext, in p-fa) 






C scrssn o-f 


its 


text, in p-fa+1) 






( number o-f 


a ue 


stion, in p-fa+2 and c 


-f a+3! 




DOES> 




( p-fa — answer) 






DUP 




< p-fa, p-fa) 






2+ 




( p-fa, p-fa+2) 






@ 




( p-fa, quest i on _n o ) 






DUP 




( p-fa, q u e s t i Q n _ n o , 


quest i on 


n (□ ) 


ANSWERS 




( p-fa, quest i on _nQ, 


quest i on 




+ 




( p-fa, quest i on._no , 


q u e s 1 1 o n _ 




OS 




( p-fa, questi on_no. 


j; i - ^ \ 

t 1 dQ ) 




?DUP 










( I-f flag=0 




( p-fa, questi on _no, 


t 1 ag ? 




( I-f -flag = l 


> 


( p-fa, question_nn. 


■f 1 aq . -f 1 ^ 




IF 










( The que 


stion was answered be-for 


e ) 








! p-fa, quest ion_no, 


■flag) 




1 - 




( p-fa, quesiori_no, 


answer ) 




ROT 




( quest ion_no, answ 


e r , p-fa) 




ROT 




( answer, p-fa, ques 


ti on_no) 




2DR0P 




( answer) 






ELSE 










( The Que 


stion has never be made) 










( p-fa, question no) 






SWAP 




( questi on _no, p-fa) 






DUP 




( question_no, p-fa, 


D t a > 




Pia 

W£ 




< question_no, p-fa, 


line) 




SWAP 1+ 




( question_no, line 


, p t a + .l ' 




OS 




( questi on_no, line 


, screen) 




CR 










. LINE 




( questi on_no) 






Y/N 




( question_no, answ 


er ! 




( I-f " Y " 


was 


typed, answer=l ) 






< I-f "N" 


was 


typed, answer=0) 






DUP 1 + 




( questi on_no, answ 


er , answer+1 ) 


ROT 




( answer, answer+1, 


questi on_ 


no) 


ANSWERS 




( answer, answer+1. 


quest i on 


_no. snswer'E _sicjr ) 


+• 




< answer, answer+1, 


quest i on 


"adr ) 


C! 




( answer) 






END IF 










: ( ( 

N!- ! 










; IMMEDIATE 










1 N?< + ! 










[COMPILE] IF 










; IMMEDIATE 










: ( ) ) ) 




( screen, line, -fla 


g — ? 




IF 




< screen, line) 






CR 










SWAP 




( line, screen) 






.LINE 




( ) 






CR 










QUIT 










ELSE 




( screen, line) 







There can be any number of questions in- 
side a rule. 

If the answer to any question must be 
false, we can add NOT after the name of the 
question: 

: rule_name 
( ( questionl 
& question2 NOT 
& question3 ) ) ; 

It is possible to use AND or OR to link 
two or more questions: 

: rule_namel 
( ( questionl 
quest ion2 AND ) ) ; 

: rule_name2 
( ( questionl 
quest ion2 OR ; 

But there are some problems if we do 
this. If we use and both questions will be 
asked of the user, even if the answer to 
questionl is false. 

Instead of and, we should use the word 
& (the ampersand): 

: rule_namel 
( ( questionl 
& question2 ) ) ; 

Now if the answer to questionl is 
"not," question2 will not be asked. 

The OR case is not so important, be- 
cause there is no difference between 
rule_name2 above and the next two 
rules. 

: rule_name2 . 1 

( ( questionl ) ) ; 

: rule_name2 . 2 

( ( quest ion2 ) ) ; 

We have questions and rules; now we 
order the rules inside a Forth word (the 
main word of the expert system) in the 
following way: 

: expert_system_name 
SISIFORTH_OK 
." Starting message" 
snl lnl rule_namel 
sn2 ln2 rule_name2 
(etc..) 
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Message if no rule was true' 



For each rule, sn and In are the screen 
number and line number where the text of 
the answer has been typed. So, if the rule is 
true, line In of screen sn will be printed 
and SISIFOrth will stop. 

The order of the rules is very important, 
because SISIFOrth will stop whenever it 
finds a true rule. So, for example, if there 
are two rules like: 

: rulel 

( ( questionl 

& question2 

& question3 ) ) ; 

: rule2 

( ( questionl 

& question3 ) ) ; 



then rule2 should always be after 
rulel. If not, and if questionl and 
quest ion3 are both true, SISIFOrth 
would stop in rule 2 before examining 
rulel. 



SISIFOrth Words 

I think SISIFOrth will be easy to under- 
stand, because only a few words do all the 
work. The power of SISIFOrth is the way it 
does the dirty work; we have nothing to do 
but tell it the rules and where the text is 
located. 

QUESTIONS 

A constant that holds the maximum 
number of questions ever used. It has to be 
changed as needed. 

ANSWERS 

An array that holds the answers made by 
the user. Answers are stored as for 'ques- 
tion not answered,' 1 for 'question an- 
swered false,' and 2 for 'question answered 
true.' 

N& 

Counter of how many times & is found 
within a rule, used to compile the correct 
number of endifs at the end of the rule. 

NQ 

Counter of how many questions were 
created by QUESTION. 

.TITLE 



?<_no=0) 
?m noOO) 



no ) 



_no) 
no. 



no ) 



( S< no. 



2DRQP 
ENDIF 

) ) 

COMPILE ())) 
NS< @ 
?DUP 
( I-f 
( I-f 
IF 


DO 

[COMPILE] ENDIF 
LOOP 
ENDIF 
IMMEDIATE 

BLK+ ( — screen) 

32 WORD < address) 

NUMBER ( number, 0) 

DROP ( number) 

+BLOCK ( screen) 

( +BLOCK adds current screen number to the number on TOS) 
STATE @ ( screen, compiling?) 

IF ( screen) 

( BLK+ is being used inside a definition) 

C COMPILE 3 LITERAL 
ENDIF 
IMMEDIATE 



Screen # 2 

( SISIFOrth, vehicles expert) 

1 ( Questions: ) 

2 BLK.+ 1 5 QUESTION MONEY 

3 BLK+ 1 6 QUESTION PASSENGERS 

4 BLK+ 1 7 QUESTION BAGGAGE 

5 BLK+ 1 8 QUESTION SPEED 

6 BLK+ 1 9 QUESTION SPORT 

7 < Rules: ) 



SUBWAY ( ( MONEY NOT ) ) ; 

CAR ( ( PASSENGERS BAGGAGE OR ) ) 

MCYCLE ( ( SPEED ) ) ; 

C5 ( ( SPORT NOT ) ) ; 

BIKE ( ( SPORT ) ) s 



8 
9 
10 

I 1 
12 
13 — > 
14 

15 

Screen # 3 

( SISIFOrth, vehicles expert, continued) 

1 : SISIFORTH_VEHICLES SISIFORTH_OK 

2 ." Vehicles Expert System" CR BLK+ 11 SUBWAY BLK+ i: 

3 CAR BLK+ 13 MCYCLE BLK.+ 14 C5 BLK+ 15 BIKE ; ;S 

4 ( Texts o-f questions:) 

5 Have you got money enough? 

6 Are you earring passengers? 

7 Are you earring baggage? 

8 Do you like speed? 

9 Do you like sport? 
10 ( Texts o-f answers: ) 

II Go to the subway, silly! 

12 Buy a car, sure. 

13 Buy a speedy motorcycle, then. 

14 Well, buy a electric Sinclair C5 tricicle! 

15 Better buy a bike, my -friend. 
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Screen # 6 



6 
7 
8 
9 
10 
1 1 
12 
13 
14 
15 



< SIS 

BLK+ 

BLK+ 

BLK+ 

BLK+ 

BLK+ 

BLK+ 

BLK + 

BLK+ 

BLK + 

BLK+ 

BLK+ 

BLK+ 



IFOrth. li 
3 01 QUEST 
3 02 QUEST 
3 07 QUEST 
3 08 QUEST 
3 09 QUEST 
3 10 QUEST 
3 03 QUEST 
3 12 QUEST 
3 11 QUEST 
3 04 QUEST 
3 05 QUEST 
3 06 QUEST 



brary manager) 

ION COMPUTER_LANGUAGES 

ION F0RTH_LANGUA6E 

ION F0RTH-79_LANGUAGE 

ION F0RTH-83_LANGUAGE 

ION MMS-FORTH_ LANGUAGE 

I ON F I G-FORTH_LANGUAGE 

ION PASCAL LANGUAGE 

ION UCSD-PASCAL_LAN6UA6E 

ION TURBO-PASCAL_ LANGUAGE 

ION BASIC_LANGUAGE 

ION C_LANGUAGE 

ION PARTICULAR VERSION 



Sere 


en # 7 










( 


SISIFOrth. 


library manager, continued) 




1 : 


NO_SHELVING 


( ( 


COMF'UTER_ LANGUAGES NOT ) ) ; 






SHELVING 


.01 


( ( 


FORTH_LANGUAGE 










?■/ 


PARTICULAR_VER5I0N NOT )) ; 




4 : 


SHELVING 


.02 


< ( 


FORTH _LANGLI AGE *< PARTICULAR 


.VERSION 








?■/ 


F0RTH-79_LANGUA5E ) ) ; 




6 : 


SHELVING. 


03 


( ( 


FORTH_ LANGUAGE St PARTICULAR 


VERSION 


7 






Z< 


F0RTH-83_LANGUAGE ) ) : 




8 : 


SHELVING. 


04 


< ( 


FORTH_LANGUAGE V. PARTICULAR 


VERSION 


9 






!< 


MMS-FORTH LANGUAGE ) ) : 




10 : 


SHELVING. 


05 


( < 


FORTH_LANGUAGE ?< PARTICULAR 


.VERSION 


1 1 






?< 


FIG-FORTH LANGUAGE )) : 




12 : 


SHELVING. 


06 


( ( 


BASIC_LANGUAGE ) ) ; 




13 : 


SHELVING. 


07 


( < 


C LANGUAGE ) ) j 




14 - 













Screen # 8 

(SISIFOrth, library manager, continued) 

1 : SHELVING_08 (( PASCAL_LANGUAGE 

2 !< PARTICULAR_VERSION NOT )) ; 

3 : SHELVING_09 <( PASCAL_LANGUAGE & PARTICULAR_VERSION 

4 ?< TURBO-PASCAL_LANGUAGE ) ) s 

5 : SHELVING_10 (( PASCAL_LANGUAGE 
«< UCSD-PASCAL ) ) ; 

SISIFORTH_LIBRARY SISIFORTH OK . " Let's start!" 



6 
7 

8 
9 
10 
1 1 
12 
13 
14 
15 



BLK+ 
BLK + 
BLK+ 
BLK+ 
BLK+ 
BLK+ 

. " Sorry, 
; S 



11 NO_SHELVING 
01 SHELVING_01 BLK+ 
03 SHELVING_03 BLK+ 
05 SHELVING 05 BLK+ 
07 SHELVINgI07 BLK+ 
09 SHELVING_09 BLK+ 
I can't help you. 



02 SHELVING_02 
04 SHELVING_04 
06 SHELVING_06 
08 SHELVING_08 
10 SHELVING 10 



Screen 


# 9 











( SI 


SIFOrth, library manager, continued) 


1 


Are 


you 


i nterested 


on 


computer languages? 


2 


Are 


you 


i nterested 


on 


Forth language? 




Are 


you 


i nterested 


on 


Pascal language? 


4 


Are 


you 


interested 


on 


BASIC language? 


5 


Are 


you 


i nterested 


on 


C language? 


6 


Are 


you 


i nterested 


on 


any particular dialect? 


7 


Are 


you 


i nterested 


on 


Forth-79? 


8 


Are 


you 


i nterested 


on 


Forth-83? 


9 


Are 


you 


i nterested 


on 


MMS-Forth? 


10 


Are 


you 


interested 


on 


■f i g-Forth? 


1 1 


Are 


you 


i nterested 


on 


Turbo Pascal? 


12 


Are 


you 


i nterested 


on 


UCSD-Pascal? 



13 
14 



Prints titles. 

SISIFORTH_OK 

Clears answers and the display, to 
start execution of rules. 

Y/N ( — flag ) 

Waits fora"Y" or "N" to be typed, and 
leaves a flag. 

QUESTION ( sn In — ) 
A word to create other words. Stores sn 
and In at the PFA of the new word, with 
the content of nq, and increments the 
content of nq. When the new word is 
executed, it checks its flag in answers 
and, if it is 1 or 2 (which would mean the 
question has already been answered by 
the user), decrements it and leaves in on 
top of the stack. If the flag is 0, it calls 
y/n to get the answer from the user. In 
any case, the word created by que s t i on 
leaves a flag (i.e., the answer) when exe- 
cuted. 

( ( 

Resets the content of N & when a rule is 
compiled. 



Increments the content of N& and 
compiles an if. 

) ) 

The shadow word compiled at the start 
of ) ) . It checks to see if the rule is true; if 
so, it writes the answer and ends execu- 
tion of SISIFOrth. 

) ) 

Compiles ( ) ) ) and the needed 
endifs to complete the rule structure, 
using the value stored in N&. 

BLK+ 

This makes the expert system source 
code relocatable among screens. Instead 
of using absolute screen numbers to indi- 
cate where an answer or questions has 
been typed, we can use blk+ rs where 
rs stands for 'relative screen,' the offset 
from the actual compilation screen. Thus, 
BLK+ denotes the screen currently 
being compiled, blk+ 1 means the next 
screen, etc. 

Conversion to fig-SISIFOrth 

To convert this code to run on a fig- 
FORTH system, just add before any 
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occurrence of the word VARIABLE. Then, 
in the word ) ) , use -DUP in place of ? DUP . 
The word ab S at the end of the definition of 
y/n could be deleted. In the definition of 
BLK+ , use WORD HERE instead of simply 
WORD. If necessary, use <BUILDS instead 
of create at the start of question . 

Simple Examples 

Screens two and three show a simple 
example. To get it working, just compile 
the screen where it starts, then type 
S I S I FORTH_VE H I CLE S . You will have 
to answer some questions before SI- 
SIFOrth gives an answer. Try again, chang- 
ing your answers, to see what happens. 

I know this example is very simple, but 
if the way SISIFOrth works has been un- 
derstood, it should be clear that very com- 
plex expert systems can be written in this 
way, not based on probabilities but "hard 
rules" expert systems. 

Screens six through ten show another 
example. Ascanbeeseen,theonlyproblem 
in building an expert system is designing it! 



Scr 


1 



een # 10 

(SISIFOrth, library manager, 



conti nued ) 



6 
7 
8 
9 
10 
1 1 
12 
13 
14 
15 



Please, 
PI ease. 
Please, 
Please, 
Please, 
PI ease, 
Please, 
PI ease. 
Please, 
PI ease, 
Sorry, 



1 ook 
look 
look 
look 



at shelv 
at shelv 
at shelv 
at shelv 



look at shelv 
look at shelv 
look at shelv 
look at shelv 
look at shelv 



ng 
rig 
ng 
ng 
ng 
ng 
ng 
ng 
ng 



& 
7 
8 
9 

look at sehlving 10 
we have only computer languages book? 




CONCEPT 4 



forthWINDOWSt 



8086,8088 Native 
Code generator. 
The easy way to 
optimize Laxen & 
Perry F83, including 
the hi-level flow 
control words... If .. 
Then, Do .. Loop, 
Begin. .Again. 

$20.00 

CONCEPT 



Text and Data Windows 
90 Windows/ per available memory 

Popup Windows 
Save and Restore windows from files 

Mouse Support 
Circular Event Que for Mouse/keyboard 
DOS services/ directory 
F83, HSFORTH, FPC supported 
PLUS 



$49.95 

All programs require DOS 2.0 or higher 
All programs include 5 1/4" disk and manual 
Send check or money order to : 

4, INC. PO BOX 20136 VOC 



P V M 8 3 



Prolog 

Virtual 

Machine 

Add productivity, 
flexibility, and auto- 
mated reasoning 
Fully interactive 
between Forth and 
Prolog code 

$69.95 

AZ 86341 y 
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We can also think of SISIFOrth rules as 
Prolog sentences, where there are condi- 
tions to make the rule true. With that idea in 
mind, as you can see in the last example, it 
is as easy to write an intelligent data base 
using SISIFOrth as it would be using 
Prolog. 

One more thing: if the order of the rules 
inside the main word is chosen with care, 
some questions of some rules can be saved. 
But it is better to write every question 
needed in every rule, it is surer. And the 
final message should not be needed if the 
rules have been thought out properly, but it 
is better to keep it there while debugging an 
expert system. 

About the Name 

In Greek mythology, Sisifo [Sisyphus 
in most English translations] was sen- 
tenced by Zeus to roll a big stone up a 
mountain; but when he arrived, the stone 
dropped back down and Sisifo had to go 
down and start again... and so on, again and 
again, forever. Do you understand? 



Marcos Cruz joined the Forth Interest 
Group last year, and reports that the few 
Forth users he knows in Spain mostly 
use 68000-based computers such as the 
Sinclair QL, Commodore Amiga, and 
Atari ST. SISIFOrth was originally 
written for a Sinclair ZX Spectrum with 
a fig-FORTH from Melbourne House; 
that was improved upon and translated 
for a Sinclair QL running a Forth-83 
from Computer One. The author wel- 
comes mailed suggestions or improve- 
ments at Acacias 44, 28023 Madrid, 
Spain. 



(Screens continued from page 22.) 



SCR 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



SCR 

1 
2 
3 
4 
5 
6 
1 
8 
9 
10 
11 
12 
13 
14 
15 



SCR 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



COPY VIDEO LINE FROM IMAGE TO FORTH DICTIONARY SPACE 

! CURRENT-VLINE ( Y-val — ) \ Calc. address in image. 
( For active image, calc 32-bit address of video line Y, ) 
( and save the address in double variable.) 



pixels/line uss*d 
current -buffer d+ 
current -vline 2 ! ; 



\ unsigned mult w. 32-bit prod: Y*px/1 
\ added to start. addr — line address 
\ stored as daddr in variable. 



( Y-val — 



) \ Copy one line (Y) down. 



VLINE>DICT 

! current -vline current -vline 2@ \ source daddr to stack 
vidline (dadr) pixels/line make-GDT \ + dest & tbytes -X5DT 
GDT dseg pixels/line 2/ \ gdt addr S segment, #words 

intl5 dup not if drop \ call intl5, test status 

else ." Error:" . quit then ; \ if error, print code. 



STORE & FETCH SINGLE PIXELS AT X,Y; FILL IMAGE WITH 1 VALUE 



1PIXEL ( n x y 
vline>dict 
vidline + c ! 
dict>vline ; 



0PIXEL ( x 
vline>dict 
vidline + 



c@ 



\ Replace pixel X,Y with value n. 
\ Bring video line Y from image, 
\ address pixel X, modify it, 
\ and send line back to image. 

\ Fetch value n of pixel X,Y. 
\ Y-coord specifies one line; 
\ address pixel X, find value. 



WILL 
freeze 



( n 



) 



\ Fill entire image with byte n. 
\ End live video, hold image 
vidline pixels/line rot fill \ set up video line 
480 do i ! current -vline \ address 480 lines of image 
dict>vline loop ; — > \ & copy same array into each. 



# 8 

\ SAVE AN IMAGE TO DISK FILE 
decimal 

: HANDLE* ( — n ) fcb @ c@ 



IMAGE>DISK ( 
480 do 
i vline>dict 
vidline 512 
write-bytes 
loop ; 



) 



handle* 
drop 



SAVE ( filename) ( ■ 
close freeze \ 
." Saving image " \ 
make ( filename) \ 
image>disk close ; — > \ 



; \ Get current file handle. 

Move video image to an open file. 
For 480 lines of a video image, 
move each line from image to array, 
set address, count & file-handle 
write array to disk, drop status, 
and do next line. 

) \ Save image in new disk file. 
Close any open file, freeze image; 
tell user something is happening; 
open a file using filename supplied 
copy image, and close file. 



(Screens continued on page 34.) 
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SILICON COMPOSERS 



Performance, Quality, Service 
SC/FOX"" Forth Optimized express' 



SC/FOX PCS Parallel Coprocessor System 

Uses Harris RTX 2000 tm real-time Forth CPU. 
System speeds options: 8 or 10 MHz. 
Full-length 8 or 16-bit PC/XT/AT plug-in board. 
32K to 1M bytes, 0-wait-state static RAM. 
Hardware expansion, two 50-pin strip headers. 
Multiple PCS board parallel operation. 
Data transfer thru moveable shared 16K window. 
Includes FCompiler, SC/Forth optional. 
Prices start at $1,995 with software. 

SC/FOX SBC Single Board Computer 

Uses RTX 2000 real-time Forth CPU. 
System speed options: 8, 10, or 12 MHz. 
32K to 512K bytes 0-wait-state static RAM. 
64K bytes of shadow-EPROM space. 
RS232 serial and Centronic printer ports. 
Hardware expansion, two 50-pin strip headers. 
Eurocard size: 100mm by 160mm. 
Includes FCompiler, optional SC/Forth EPROM 
Prices start at $995 with software. 





SC/FOX SCSI I/O Daughter Board - NEW! 

Plug-on daughter board for SC/FOX PCS and SBC. 
Source s/w drivers for FCompiler and SC/Forth. 
SCSI adaptor with 5 Mbytes/sec synchronous or 
3 Mbytes/sec asynchronous transfer rates. 
Floppy disk adaptor, up to 4 drives, any type. 
Full RS-232C Serial Port, 50 to 56K Baud. 
16-bit bidirectional, latching-parallel port. 
Price $695 with software. 

SC/Forth ,m Language 

Interactive Forth-83 Standard. 
15-priority time-sliced multitasking. 
Supports user-defined PAUSE. 
Automatic optimization and jicode support. 
Turnkey application support. 
Extended structures and case statement. 
Double number extensions. 
Infix equation notation option. 
Block or text file interpretation. 
Optional sorce code developers system. 
Prices start at $695. 




SC/FOX Support Products: 

SC/Forth Source Code 
SC/Float tm IEEE Floating Point Library. 
SC/PCS/PROTO Prototype Board. 
SC/SBC/PROTO Prototype Board. 
SC/FOX/SP Serial-Parallel Board. 
XRUN tm Utilities and SC/SBC Serial Cable. 

Harris RTX 2000 Real-Time Forth CPU 

l-cycle multiplier, 14-prioritized interrupts, 

one NMI, two 256-word stacks, 16-bit timer/counters, 

and an 8-channel multiplexed 16-bit I/O bus. 



Ideal for embedded real-time control, high-speed data acquisition and reduction, image or signal 
processing, or computation intense applications. For additional information, please contact us at: 

Silicon Composers, Inc., 210 California Avenue, Suite K, Palo Alto, CA 94306 (415) 322-8763 
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Forth-79 

TWO ASSEMBLERS 

ARE BETTER THAN ONE 

DARRYL C. OLIVIER - NEW ORLEANS, LOUISIANA 



The 



e Forth assembler is handy for writ- 
ing short pieces of code to access the hard- 
ware or to speed up a loop, but it can be 
cumbersome for large routines. A full- 
fledged macro assembler with all the bells 
and whistles is ideal for larger routines, but 
it would be very messy to implement as a 
Forth vocabulary. Fortunately, this is not 
necessary. It is possible to write a routine 
using a regular macro assembler, then to 
incorporate the resultant binary file as a 
Forth word. I will describe a way to do this 
for a PC-type segmented memory struc- 
ture. Forth-79 is used, along with the 
Microsoft Macro Assembler under MS- 
DOS. 



if, 



This makes practi- 
cal a library of binary 
routines..." 



The assembler routine to be adopted 
into Forth must be written or modified to 
conform to certain restrictions. It must be in 
the COM format, with all code and data in 
the same segment. The instruction ORG 
10 Oh — usually included in a COM pro- 
gram — is not used, because we want the 
routine to begin at offset zero within its 
segment. (Alternately, keep the ORG 10 Oh 
instruction and subtract lOh from the seg- 
ment value in the Forth defining word.) A 
stack segment is not defined, and S S is not 
used in the ASSUME statement. Input and 
output parameters will be passed via the 
Forth stack. When the routine executes, the 
top two elements on the stack will be the 
segment and offset of the Forth re-entry 



SCR 

1 
2 
3 
4 
5 
6 
7 
8 
9 

SCR 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 



#1 

\ Two Assemblers Are Better than One 



C. Olivier 3-6-89 



VARIABLE SIZE 
VARIABLE BINSEG 
VARIABLE NAME$ 11 ALLOT 
DVARIABLE REGS 



\ Size of file to be loaded 
\ Segment 

\ File name string 

\ Holds register contents 



\ Leaves contents of the CS register on the stack. 



D . C. Olivier 3-6-89 



CODE CSEG 
CS PUSH 

NEXT JMP END-CODE 

#2 

\ Two Assemblers Are Better than One 
CODE CALLBIN 

# REGS , BP MOV \ Save registers 

# REGS 2+ , SI MOV \ used by Forth. 

203 C, \ Intersegment return instruction for 8088 
END-CODE 



CODE REENTRY 
AX, CS MOV 
DS, AX MOV 
BX, # REGS MOV 
BP, [BX] MOV 
BX INC BX INC 
SI, [BX] MOV 
NEXT JMP END-CODE 



\ Restore DS register 

\ Restore registers 
\ used by Forth 



SCR #3 

\ Two Assemblers Are Better than One 



D. C. Olivier 3-6-89 



READBIN 



EXIT 



The name of the binary file is at NAMES as a counted string. 
Use your own DOS file interface to open the file, determine and 

8 store its size in SIZE, read the file from disk to BINSEG:0, 

9 close the file, do any appropriate error checking. 



SCR 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 



t4 



Two Assemblers Are Better than One 
BINFILE 

>IN e \ 
BL WORD DUP \ 



C. Olivier 3-6-89 



C@ 1+ NAMES SWAP CMOVE \ 



>IN 1 
CREATE 

HERE 16 / 1+ DUP 
CSEG + BINSEG I 
READBIN 

16 * SIZE ? + DP 
DOES> 

CSEG 1 REENTRY 
ROT 16 / 1+ CSEG 
CALLBIN : 



+ 



Saves input stream pointer 
Reads next word from input stream 
Moves word to variable NAME$ 
Restores imput stream pointer 
Reads same word, creates header 
# of paragraphs to HERE, + 1 
Segment for binary routine 
Read file from disk to BINSEG: 
Allot dictionary space 
PFA on stack at run time 
Segment and offset of reentry point 
Segment and offset of binary routine 
Intersegment RET instruction 
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point. These should be saved in variables 
and restored before the final RET instruc- 
tion. Define the routine as a far procedure, 
so that the final RET instruction will be 
assembled as an intersegment return. 

Figure One is a trivial example that 
takes two numbers from the stack, adds 
them, and places the result on the stack 
before returning to Forth. Assemble the 
source code and link as usual; use the 
EXE2BIN utility to convert to binary for- 
mat, then rename the file if you like. Its 
Forth name will be the same as its filename. 

B INF I LE in screen four is the defining 
word. The syntax is: 

BINFILE <name> 

where <name> is the name of the binary 
file on disk. On line two, we save the value 
of the input stream pointer on the stack. On 
line three, we read the next word from the 
input stream, which is <name>. Line four 
moves <name> to a variable. Line five 
restores the original value of the input 
stream pointer so that create can read 
<name> also. Line six creates a dictionary 
header for <name>. 

The binary routine must start on the first 
paragraph boundary within the parameter 
field. (A paragraph boundary is any address 
evenly divisible by 16.) On line seven, we 
calculate the number of paragraphs from 
the beginning of the Forth segment to the 
parameter field. Line eight adds the value in 
the CS register to this number and places 
the result in the variable BINSEG. On line 
nine, READBIN reads the file whose name 
is in NAME $ from disk to B INSEG : . Line 
ten allots dictionary space for the defini- 
tion. 

Line 12 begins the run-time part of the 
defining word. It places on the stack the 
address of the Forth re-entry point to be 
used by the final RET instruction in the 
binary routine. Line 13 places the address 
of the beginning of the binary routine on the 
stack. At first glance it might seem that this 
is simply BINSEG: 0, but if the Forth 
program has been compiled as a turnkey 
system , it may be executed from a different 
segment that the one in which it was com- 
piled. That is why this address must be 
calculated at run time. Line 14 executes an 
intersegment RET instruction, which takes 
the segment and offset from the stack and 
jumps to it 



This technique makes practical a com- 
mercial or public-domain library of binary 
routines to be incorporated into Forth pro- 
grams. These could be sorts, searches, 
graphic routines, math functions, trans- 
forms, etc. Of course, such a library would 
not be portable across CPUs, but it would be 
portable across Forth dialects. Any im- 
plementation dependencies would be hid- 
den in the defining word binfile. Such a 



library could greatly increase the produc- 
tivity of Forth programmers. Why spend 
time coding a quicksort routine in Forth, 
for example, when you could buy a canned 
assembly language version that had been 
optimized, tested, and debugged? It is even 
conceivable that, for some applications, 
Forth could be used as "glue" to hold to- 
gether packaged routines that did most of 
the work. 



TITLE PLUS 

ASEG SEGMENT PARA PUBLIC 
ASSUME CS : ASEG, DS : ASEG, ES : ASEG 

START: 
JMP ADDUP 
RET_ADDR1 DW ? 
RET_ADDR2 DW ? 
ADDUP PROC FAR 

; Code and data in same segment . 
MOV AX,CS 
MOV DS,AX 

r 

; Save the Forth re-entry point. 
POP RET_ADDR1 
POP RET_ADDR2 

t 

; Perform the operation. 

POP AX ; Get arguments from stack 

POP BX 

ADD AX,BX ; Add them. 

PUSH AX ; Put result on the stack. 

; Put the segment and offset of the 
; Forth re-entry point on the stack. 
PUSH RET_ADDR2 
PUSH RET_ADDR1 

; Jump to the re-entry point. 
RET 

ADDUP ENDP 
ASEG ENDS 
END START 



Figure One. An assembly routine can perform its task and return to Forth. 
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THE BEST OF 
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GARY SMITH - UTTLE ROCK, ARKANSAS 



A 

xA-s promised in the last issue, I will 
continue with recent on-line conferences 
that featured George Shaw, Mike Perry, 
Randy Dumse, and Wil Baden. As before, 
I will feature the guests' opening remarks 
from their respective conferences. These 
remarks set the tone and direction of the 
conference, and they serve that purpose 
well. I hope most readers will note they also 
serve to acquaint the attendees of the con- 
ference — and now the readers of this col- 
umn — with the guests' personal philoso- 
phies. 

This is no accident. When I have ap- 
proached a prospective guest, I have al- 
ways asked what they wish to talk about. 
What is their personal pointof wisdom they 
wish to share? Without exception, those 
who have accepted the invitation have also 
accepted the opportunity to share their 
personal point of view, as opposed to some 
general subject It is clear that we all benefit 
from this unselfishness. I again wish to 
thank all these gracious people for sharing 
their insight as they have. 

Now, on to the recaps. 

George Shaw 
December 1988 

Owner of Shaw Laboratories. 

<[George]> We (myself and others) 
started the ACM SIG to bring Forth into the 
professional computing arena. ACM is 
very visible in the universities and colleges, 
and is very well respected around the 
world. We felt that having a SIG would give 
Forth a large boost in image as a language 
for serious use by professionals. 

Thanks to Alan Furman for starting the 
whole thing and analyzing the situation to 



give us direction and goals. I have a list of 
our initial projects : 

Education: Moving Forth into the uni- 
versities and colleges to create an aware- 
ness of Forth and a better supply of Forth 
programmers. 

Forthics: Research to create a basic set 
of Forth programming ethics as well as 
management metrics to increase the suc- 
cess of Forth projects. 

Market A study of the job requirements 
and the Forth programming skills available 
to determine trends in the Forth job market- 
place and skills required for the future. 



"The immediacy is 
lost, but the words 
remain." 



Successes/Failures: A study of the his- 
torical applications of Forth to create an 
awareness of Forth's widespread use and to 
determine what the characteristics and 
causes are for successes and failures. 

ANS Forth: Participate through your 
SIGForth representative in the ANS Forth 
committee to produce an American Na- 
tional Standard for Forth that everyone can 
use. 

State of the Industry: SIGForth periodi- 
cally compiles surveys of the Forth industry 
to evaluate the status of the Forth product 
market, job market, workplace, education 
availability, job requirements, etc. Partici- 
pate in these surveys and be one of the first 
to reap their benefits through their publica- 
tion in the SIGForth newsletter. 



Mike Perry 
January 1989 

Owner of Even-Odd Designs. 

< [mike]> I have benefitted enormously 
from the work of many other people. I have 
come to believe strongly in the value of 
open systems. I want, and even need, to 
have complete control over my tools. Shar- 
ing code and avoiding secrets are essential 
for productivity. 

I am convinced that Forth will continue 
to be interesting because so many new 
techniques and ideas are explored here; 
that is possible, in large part, because we 
share our code and ideas. 

Remember, we will only lose control of 
our machines if we give it away. 

Randy Dumse 
February 1989 

Owner of New Micros, Inc. 

<[DUMSE]> Being somewhat isolated 
here in Texas has its disadvantages. The 
availability of other informed people to 
bounce ideas off is limited, so most of my 
opportunities for such interaction occur at 
most twice a year: atFORMLorRochester. 
On the other hand, not having anyone to 
give guided direction to your thinking can 
allow original thought to take some inter- 
esting directions. How useful these 
thoughts are often cannot be determined by 
the originator. It's a little like the male 
complex where no baby is ever pretty — 
until it's his own! 

So it is with ideas: they are much like 
the only child a male can bear, and there- 
fore look pretty darn cute to Dada. It can be 
a bit hard to be objective when there is that 
feeling of self-investment in the thoughts. 

(Continued on page 34.) 



Forth Dimensions 



32 



Volume XI, Number 2 



REFERENCE SECTION 



Forth Interest Group 

The Forth Interest Group serves both 
expert and novice members with its net- 
work of chapters, Forth Dimensions, and 
conferences that regularly attract partici- 
pants from around the world. For member- 
ship information, or to reserve advertising 
space, contact the administrative offices: 

Forth Interest Group 

P.O. Box 8231 

San Jose, California 95155 

408-277-0668 

Board of Directors 

Robert Reiling, President (ret. director) 
Dennis Ruffer, Vice-President 
John D. Hall, Treasurer 
Terri Sutton, Secretary 
Wil Baden 
Jack Brown 
Mike Elola 
Robert L. Smith 

Founding Directors 
William Ragsdale 
Kim Harris 
Dave Boulton 
Dave Kilbridge 
John James 

In Recognition 

Recognition is offered annually to a 
person who has made an outstanding con- 
tribution in support of Forth and the Forth 
Interest Group. The individual is nomi- 
nated and selected by previous recipients of 
the "FIGGY." Each receives an engraved 
award, and is named on a plaque in the ad- 
ministrative offices. 



1979 William Ragsdale 

1980 Kim Harris 

1981 Dave Kilbridge 

1982 Roy Martens 

1983 John D. Hall 

1984 Robert Reiling 

1985 Thea Martin 

1986 C.H. Ting 

1987 Marlin Ouverson 

1988 Dennis Ruffer 

On-Line Resources 

To communicate with these systems, set 
your modem and communication software 
to 300/1200/2400 baud with eight bits, no 
parity, and one stop bit, unless noted other- 
wise. GEnie requires local echo. 

GEnie 

For information, call 800-638-9636 

• Forth RoundTable (ForthNet link*) 
Call GEnie local node, then type M710 
or FORTH 

SysOps: Dennis Ruffer (D.RUFFER), 
Scott Squires (S.W.SQUIRES), Leona 
Morgenstern (NMORGENSTERN), 
Gary Smith (GARY-S) 

• MACH2 RoundTable 
Type M450 or MACH2 
Palo Alto Shipping Company 
SysOp: Waymen Askey (D.MILEY) 

BIX (ByteNet) 

For information, call 800-227-2983 

• Forth Conference 

Access BIX via TymeNet, then type 
j forth 

Type FORTH at the : prompt 
SysOp: Phil Wasson (PWASSON) 



• LMI Conference 

Type LMI at the : prompt 
Laboratory Microsystems products 
Host: Ray Duncan (RDUNCAN) 

CompuServe 

For information, call 800-848-8990 

• Creative Solutions Conference 
Type !Go FORTH 

SysOps: Don Colburn, Zach Zachar- 
iah, Ward McFarland, Jon Bryan, 
Greg Guerin, John Baxter, John 
Jeppson 

• Computer Language Magazine Con- 
ference 

Type !Go CLM 

SysOps: Jim Kyle, Jeff Brenton, Chip 
Rabinowitz, Regina Starr Ridley 

Unix BBS's with Forth conferences 
(ForthNet links*) 

• WELL Forth conference 

Access WELL via CompuserveNet or 
415-332-6106 

Fairwitness: Jack Woehr (jax) 

• Wetware Forth conference 
415-753-5265 

Fairwitness: Gary Smith (gars) 

PC Board BBS' s devoted to Forth 
(ForthNet links*) 

• East Coast Forth Board 
703-442-8695 
SysOp: Jerry Schifrin 

• British Columbia Forth Board 
604-434-5886 

SysOp: Jack Brown 

• Real-Time Control Forth Board 
303-278-0364 

SysOp: Jack Woehr 
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Other Forth-specific BBS's 

• Laboratory Microsystems, Inc. 

213-306-3530 

SysOp: Ron Braithwaite 

This list was accurate as of March 1989. If 
you know another on-line Forth resource, 
please let me know so it can be included in 
this list. I can be reached in the following 
ways: 

vjoiy o mi in 

P. O. Drawer 7680 


Little Rock, Arkansas 72217 
Telephone: 501-227-7817 
Fax: 501-228-0271 

Telex: 6501165247 (store and forward) 
GEnie (co-SysOp, Forth RoundTable): 

GARY-S 
BIX (Bytenet): GARYS 
Delphi: GARY_S 
MCIMAIL: 116-5247 
CompuServe: 71066,707 
Wetware Diver. (Fairwitness, Forth Con 

1C1CI1LC J. gala 


Usenet domain.: gars@well.UUCP or 

gars@wet.UUCP 
Internet: well!gars@lll-winken.arpa 

WELL: gars 

*ForthNet is a virtual Forth network that 


(Continued from page 29.) 

There isn't even a mother on which to 
blame half of the genes. 

With those thoughts, I begin. 

Forth as a Standalone Operating System 
Both theR65Fll and F68HC 11 single- 
chip computers have been designed as 
standalone computer systems. They use 
Forth as their operating system. In this 
regard, they follow in the tradition of mi- 
cros like the KIM- 1 , S YM- 1 , and the AIM- 
65. Each of these had a built-in monitor to 
allow user interaction with the system. 
Similarly, other systems used BASIC as 
their power-on operating system, such as 
the (if my memory serves) OSI, TRS-80, 
and Apple. 

Something to keep in mind: "operating 
system" hasn't always meant "disk operat- 
ing system." 

As most of us have heard, Forth is 
nearly its own operating system. In fact, it 


is often stated that Forth is difficult to 
install under an existing operating system 
because it is not well behaved. These 
comments really have nothing to do with 
Forth as a general language, but come out of 
the difficulty of doing blocks under another 
OS. 

Wil Baden 
March 1989 

Owner ofPaleotaurus, Inc. 

<[Wil]> Let's stop kidding ourselves. 
Forth deserves its reputation as a write-only 
language. 99 percent of published Forth 
programs prove this. Until Forth improves 
its reputation, it will be scorned. Tonight I 
want to investigate the evil forces that 
cause this and discuss six necessary but 
insufficient rules for more readable pro- 
grams. 

1. The stack state must be given for every 
line. 


2. Formatting must show logical structure. 

3. Use short definitions, short lines, short 
phrases. 

4. Don't mumble — your program should 
pass your spelling checker. 

5. Mix upper and lower case — all lower 
case is just as bad as all upper. 

6. Write comments in the English language. 

Are there better rules? What else must be 
done? 

* * * 

If you are grinding your teeth and wish- 
ing you had participated in one of these 
terrific guest conferences, all is not lost. 
The immediacy is lost forever, but the 
words remain for you to capture and study 
at your leisure. They are posted in the 
GEnie Forth RoundTable, Library 1. 



(Screen continued from page 28.) 



SCR 


# 


9 









\ 


RESTORE AN IMAGE FROM 


DISK 


FILE 


1 
2 


decimal 






3 




DISK>IMAGE ( — 


) \ 


Copy an open disk file to video. 


4 




480 do 


\ For 480 lines of a video image, 


5 




vidline 512 handle# 


\ 


set up array's address, size, file; 


6 




read-bytes drop 


\ 


load array from file, drop status; 


7 




i ! current -vline 


\ 


find address in image of this line. 


8 




dict>vline loop ; 


\ 


and move the line to image buffer. 


9 
10 




RESTORE ( filename) 


( — 


) \ Open & load file to video. 


11 




freeze open ( filename) 


\ Stop live video, open file; 


12 




disk>image close ; 




\ copy file, close it. 


13 










14 










15 
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such as 00 3B for function key one). Using 
this trivial definition makes it much easier 
to avoid such problems as the user pressing 
an extended key after "Press any key ..." 

%QUIT in screen 33, in conjunction 
with the main editor loop (E) in 57, shows 
how to force an exit, regardless how many 
levels of calling words (return addresses on 
the return stack) there are. 

In the mainline word ( E ) , we note the 
position of the return stack (RP@), which 
we save in our variable &RP0. This notes 
the point on the return stack with the ad- 
dress to which we ultimately want to exit 

Then, when a word like ABANDON or 
exit-save wants to exit PDE, it uses 
%quit to reset RP (&RP0 @ RP !) and 
then returns to that higher-level return 
address. This approach is more general 
than a series of R> drops, particularly 
when you consider that abandon is nested 
four levels deep when invoked through A Z, 



but only three when Alt-Fl is used. 
Footnotes 

1. "Screen-Oriented Editor in Forth," by 
Henry Lax en. Dr. Dobb' s Journal, vol. 6, 
no. 9,pg.27. 

2. ved (Craig Lindley) and fsed (Gene 
Czarcinski), September 1986. Creditalso 
to John A. Peters and R.F. Buchanan. 

3. F83 is a public-domain implementation 
of Forth-83 by Henry Laxen and Michael 
Perry, with many, many fine added fea- 
tures. F83 is available on disks from 
SIGM (154) or, better yet, from Laxen 
and Perry's No Visible Support Software 
for $25. Go ahead, make their day. 

4. "Fast SEARCH for F83," by Bill 
Zimmerly. Forth Dimensions VIII/4, pg. 
5. [Also 1X12,4, andXIl.—Ed.] 

5. "Debugging from a Full-Screen Editor," 
by Tom Blakeslee. Forth Dimensions V/ 
2,pg. 30. 



Frans van Duinen is regional man- 
ager of Micro-expertise Inc., a cus- 
tom software house that specializes in 
networked database systems. A 
slightly more recent version of the 
code may be downloadedfrom GEnie 
and from Canada Remote System 
(416-629-0136) as PDE202.ARC. 



(Eggs, continued from page 6.) 



where D-Rl < x < D+Rl. The equivalent 
(unoptimized) BASICA program for the 
explicit oval function might be written as 
shown in Figure Five. 

If you try both approaches, you will find 
the latter explicit method unsatisfactory for 
drawing ovals without some modifications 
for angles close to the horizontal axis. The 
OVALS .HSF demo can be downloaded 
from the GEnie Forth RoundTable and 
from the East Coast Forth Board [see Ref- 
erence Section. — Ed.]. 



Robert Garian is a technical information and language specialist at the Library of 
Congress, specializing in Soviet computing. He has written an AI program called 
Block Solver that rearranges one multistack configuration of blocks into a 
specified goal configuration under constraints; and he has worked on automating 
both software verification and code generation. His current interests include 
simulation of complex systems, cellular automata, and genetic algorithms. 



(Letters, continued from page 5.) 

ture. When someone adds another stack, 
they enter the realm of extended — rather 
than standard — Forth, even though the 
standard does not explicitly disallow extra 
stacks. However, I personally favor exten- 
sions such as extra stacks, particularly if I 
don't have to manipulate the extra stacks 
while they give me the features of an OOL. 

While it may be better to implement the 
features of an OOF in assembly language, 



the Forth community is better served by 
first offering algorithms expressed in Forth 
so the explanations that accompany the 
code can be more readily understood. Once 
care is taken to provide such information, 
assembly -language implementations 
might be appreciated. 

I hope information about object-ori- 
ented languages piles up for Forth Dimen- 



sions. Aren't Forth programmers more 
likely to appreciate creative approaches to 
the problem of programming computers? 
Before C++ takes off, perhaps FORTH++ 
can step in. 

Mike Elola 

San Jose, California 
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It Rains — 

Chapter Coordinator Muses 

JACK WOEHR - 'J AX' ON GEnie 



Here in the high-altitude desert 
that is Colorado on the eastern side of the 
Rockies, it is drizzling a drizzle that would 
do credit to the Pacific Northwest. The dif- 
ference is that when the spring soddenness 
arrives in the Cascades, the air is heavy with 
a primeval green scent, whereas here in 
Golden, at the foot of the Foothills, there is 
the tangy aroma of fields of damp straw. 

Soon the bull snakes will hatch and 
warm their coppery beauty in the sunshine 
of early June. Already it has become a 
questionable enterprise to climb North 
Table Mountain; unseasonable eighty-de- 
gree weather in late April has the rattlers 
already emerging from their hibernation to 
bedevil suburbanites engaged in lawn care 
in the upscale development injudiciously 
located on the side of that prominence. 

Colorado is like the bull snake fresh 
from the shell, a coiled potency awaiting 
exercise. The end of the petroleum boom 
left many high and dry economically. Last 
year, mortgage foreclosures surpassed new 
mortgages for the first time. There is asense 
of lack of permanence among the high-tech 
employed. Miniscribe, for instance, for- 
merly the Boulder-area wunderldnd, has 
been steadily cutting back. 

Yet the improbable obtains: Colorado is 
a hotbed of Forth. Ball Aerospace is here, 
those arbiters of the final configuration of 
the RTX-2000. The red brick walls of 
IBM's city-sized fortress in Longmont 
reputedly conceal several ongoing Forth 
efforts. Applied Energy in Ft. Collins has 
periodically gone to great lengths to obtain 
qualified Forth assistance. Charles 
Johansen is working on finishing and foun- 
drying an inexpensive Forth chip while 
Cliff King, president of Denver FIG, is in 



the process of releasing the first revision of 
his 32-bit AT&T DSP-chip Forth develop- 
ment system. 

The local chapters of the Forth Interest 
Group have been only partially successful 
in tying together the disparate practitioners 
of Forth in a functioning fraternity. Boulder 
Forth Interest Group seems to have disap- 
peared, its members swallowed but not 
digested by Denver FIG. The latter organi- 
zation meets sporadically, usually when a 
speaker is in town. Since the meeting place 
moved to Golden, between Denver and 
Boulder, we have been more successful in 
"trapping" members of both communities 
at meetings. 



"This small event de- 
fies the mortality statis- 
tics" 



Our most successful recent meeting was 
at the National Institute of Standards and 
Technology at the Commerce Department 
facility in Boulder. We gathered from all 
over the state to see Dr. Jeffrey Fox demon- 
strate software he wrote in Forth on various 
architectures to demonstrate chaotic sys- 
tems and the Monte Carlo method. 

Subsequent to that meeting, we had 
another well-attended meeting in which we 
agreed to really get Denver FIG going 
again. There hasn't been a formal Denver 
FIG meeting since. Are we unusual? 

Our Forth-83 class still meets once a 
week. Three to seven people attend to learn, 
gripe, bring incomplete and ailing Forth 
projects for the Forth Doctor to diagnose, 



show off fancy new toys such as the 
MC68HC11 with New Micros' Forth on 
board. Members will indeed gather if they 
can sense some purpose in doing so. In the 
case of the Forth class, for instance, some 
members' purpose is to get consultation 
help for $2. 50 an hour that they used to pay 
$30 an hour to obtain. Isn' t FIG for helping 
people not only with Forth in the abstract, 
but also with Forth in their specific appli- 
cation? In any event, this small weekly 
event has defied the mortality statistics of 
local chapter activity to run for about a 
year now, with only two blizzards and one 
Florida vacation having interrupted its 
continuity. 

They still talk about the time three 
years back when Charles Moore came to 
town to show off the Novix [Forth chip]. 
One gets the sense that, more than any- 
thing, our chapter awaits the founding of a 
FIG Speaker's Bureau that would track 
Formers willing to address local groups 
and to publish their travel itineraries for 
the benefit of interested chapters. 

Speakers at FIG meetings do not have 
to be celebrities; a new face would be 
worth ten clever newsletters, in terms of 
drawing a crowd at Denver FIG. Fortu- 
nately for the continued vitality of our 
chapter, Gary Betts of the ANSI Forth 
Technical Committee (X3J14) is in the 
area and has agreed to address us. Charles 
Curley should be out for a visit sometime 
soon, and when Wil Baden comes to Colo- 
rado around January of next year there will 
be an eager and attentive audience await- 
ing his presentation. Any other Forthers 
visiting Colorado are invited to address the 
chapter on their doings; please give us 
some advance notice. 
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Our chapter bulletin board, the RCFB, 
is now on the ForthNet. ForthNet messages 
bounce around the continent from local 
BBS to local BBS, sometimes even coming 
back to reinsert themselves accidentally in 
the conversational threads of the board of 
origin. The Forth community has never had 
such a communications resource at its fin- 
gertips before. What is needed now is some 
creative use of same. 

Wouldn't it be nice if every chapter had 
a BBS on the ForthNet? In such a situation, 
no formal Speaker's Bureau would be nec- 
essary. There is already a FIG Conference 
that is exchanged on the ForthNet. (Cur- 
rently we are discussing just what is a FIG 
Chapter. You should log in just to see Brit- 
ish Columbia FIG's electronic newsletter!) 
Forthers can post their travel dates in the 
ForthNet FIG Conference, or in a separate 
Speaker's Conference. We might actually 
get to meet one another. Hibernating chap- 
ters might have cause to dust off the gavel 
more often than quarterly. 

But these are dreams one has only on 
rainy days... 



(Code continued from page 9.) 



Advertisers Index 


Bryte 


12 


Concept 4 


27 


FORML 


13 


Harvard Softworks 


7 


Inner Access 


22 


InterSystems 


18 


Laboratory Microsystems 


20 


Miller Microcomputer Services 


17 


Mountain View Press 


9 


Next Generation Systems 


21 


SDS Electronic 


15 


Silicon Composers 2, 29 



: DOZEN-EGGS 35 IS Rl CR CR \ Assumes Rl has been preset. 

WIPE ." Point height is increasing. Equatorial radius is " Rl . 
6 IS #COLS 
2 IS #ROWS 
Rl 2* 10 + IS HJUMP 
200 #ROWS / 2/ 10 + IS VJUMP 
#COLS 1+ 1 DO 
#ROWS 1+ 1 DO 

HJUMP J * IS D 

VJUMP I * IS C 

Fl J * IS R2 

F2 I * IS R3 

OVAL 

LOOP 
LOOP ORIGIN ; 

CASE: COMMANDS DOZEN-EGGS NEST-OF-EGGS ONE-EGG BYE ;CASE 

: DEMO ( — ) 
BEGIN 

CR ." 1 — Dozen eggs " 
CR ." 2 — Nest of eggs " 
CR ." 3 — Draw an oval " 
CR ." 4 — Quit " 

CR ." Your choice: " #IN 1- ABS 3 MIN MAX 
COMMANDS CR ." Press any key " KEY DROP WIPE 
AGAIN ; 

. ( Enter DEMO and a carriage return ) 



\ 



16 1024 * CONSTANT 16K 
16K 10 + SEGMENT PICTURE 
: CLRBUF 

PICTURE DUP @ OVER 2I@ 32 FILLL 
PICTURE 41! ; 



\ set up a buffer 
\ clear the buffer 



\ Take a snapshot of screen. Save it in TEMP. PIC 

: SNAP ( — ) 

16K PICTURE 41! \ make sure entire screen is saved 

C-OFF \ cursor off 

CRT-BASE PICTURE @ 16K CMOVEL \ SCREEN to PICTURE segment 

PICTURE $" TEMP. PIC" PUT-FILE C-2 ; \ PICT, to TEMP. PIC file, cursor 

on 



: QD PICTURE @ CRT-BASE 16K CMOVEL 

\ Look at snapshot kept in TEMP. PIC. 
: LOOK ( — ) 
CLRBUF 

PICTURE $" TEMP. PIC" GET-FILE 
QD ; 



\ PICTURE to SCREEN 



\ TEMP. PIC to PICTURE 



\ Illustration 

: DEM02 NEST-OF-EGGS SNAP WIPE CR ." Screen saved." 
CR ." Press any key to display screen stored in file" KEY DROP 
LOOK ; 
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FIG 

CHAPTERS 



The FIG Chapters listed below 
are currently registered as active 
with regular meetings. If your 
chapter listing is missing or incor- 
rect, please contact Kent Saf ford at 
the FIG office's Chapter Desk. 
This listing will be updated in each 
issue of FortA Dimensions. If you 
would like to begin a FIG Chapter 
in your area, write for a "Chapter 
Kit and Application." Forth Inter- 
est Group, P.O. Box 8231, San 
Jose, California 9S1SS 

U.S.A. 

• ALABAMA 
Huntsville Chapter 

Tom Konantz 
(205)881-6483 

• ALASKA 

Kodiak Area Chapter 

Ric Shepard 
Box 1344 

Kodiak, Alaska 99615 

• ARIZONA 
Phoenix Chapter 
4th Thurs., 7:30 p.m. 
AZ State University 
Memorial Union, 2nd floor 
Dennis L. Wilson 

(602) 956-7578 

• ARKANSAS 

Central Arkansas Chapter 

Litde Rock 

2nd Sat., 2 p.m. & 

4th Wed., 7 p.m. 

Jungkind Photo, 12th & Main 

Gary Smith (501) 227-7817 



• CALIFORNIA 

Los Angeles Chapter 
4th Sat., 10 a.m. 
Hawthorne Public Library 
12700 S. Grevillea Ave. 
Phillip Wasson 
(213) 649-1428 

North Bay Chapter 

2nd Sat., 10 a.m. Forth, AI 
12 Noon Tutorial, 1 p.m. Forth 
South Berkeley Public Library 
George Shaw (415) 276-5953 

Orange County Chapter 
4th Wed., 7 p.m. 
Fullerton Savings 
Huntington Beach 
Noshir Jesung (714) 842-3032 

Sacramento Chapter 
4th Wed., 7 p.m. 
1708-59th St., Room A 
Tom Ghormley 
(916)444-7775 

San Diego Chapter 
Thursdays, 12 Noon 
Guy Kelly (619)454-1307 

Silicon Valley Chapter 

4th Sat., 10 a.m. 

H-P Cupertino 

Bob Barr (408) 435-1616 

Stockton Chapter 

Doug Dillon (209) 931-2448 

• COLORADO 
Denver Chapter 

1st Mon., 7 p.m. 

Clifford King (303) 693-3413 

• CONNECTICUT 

Central Connecticut Chapter 

Charles Krajewski 
(203) 344-9996 



• FLORIDA 
Orlando Chapter 

Every other Wed., 8 p.m. 
Herman B. Gibson 
(305) 855-4790 

Southeast Florida Chapter 

Coconut Grove Area 

John Forsberg (305) 252-0108 

Tampa Bay Chapter 

1st Wed., 7:30 p.m. 

Terry McNay (813) 725-1245 

• GEORGIA 
Atlanta Chapter 

3rd Tues., 6:30 p.m. 
Western Sizzlen, Doraville 
Nick Hennenfent 
(404) 393-3010 

• ILLINOIS 

Cache Forth Chapter 
Oak Park 

Clyde W. Phillips, Jr. 
(312)386-3147 

Central Illinois Chapter 

Champaign 

Robert Illyes (217) 359-6039 

• INDIANA 

Fort Wayne Chapter 

2nd Tues., 7 p.m. 

I/P Univ. Campus, B71 Neff 

Hall 

Blair MacDermid 
(219) 749-2042 

• IOWA 

Central Iowa FIG Chapter 
1st Tues., 7:30 p.m. 
Iowa State Univ., 214 Comp. 
Sci. 

Rodrick Eldridge 
(515)294-5659 



Fairfield FIG Chapter 

4th Day, 8:15 p.m. 

Gurdy Leete (515) 472-7077 

• MARYLAND 

MDFIG 

Michael Nemeth 
(301)262-8140 

• MASSACHUSETTS 
Boston Chapter 

3rd Wed., 7 p.m. 
Honeywell 

300 Concord, Billerica 

Gary Chanson (617) 527-7206 

• MICHIGAN 
Detroit/Ann Arbor Area 
4th Thurs. 

Tom Chrapkiewicz 

(313)322-7862 

Fred Olsen (612) 588-9532 

• MINNESOTA 
MNFIG Chapter 

Minneapolis 

• MISSOURI 
Kansas City Chapter 
4th Tues., 7 p.m. 
Midwest Research Institute 
MAG Conference Center 
Linus Orth (913) 236-9189 

St. Louis Chapter 

1st Tues., 7 p.m. 
Thornhill Branch Library 
Robert Washam 
91 Weis Drive 
Ellisville, MO 63011 

• NEW JERSEY 
New Jersey Chapter 

Rutgers Univ., Piscataway 
Nicholas Lordi 
(201)338-9363 
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• NEW MEXICO 


• TEXAS 


Sydney Chapter 


• FINLAND 


Albuquerque Chapter 


Austin Chapter 


*?Tif1 Pri 7 r> m 

«>iiu i it., * yj.iii. 


Fin FIG 


1st Thurs., 7:30 p.m. 


Matt Lawrence 


John Goodsell Bldg., RM 


Jaime Kotiranta 


Physics & Astronomy Bldg. 


POBox 180409 


LG19 


Arkkitehdinkatu 38 c 39 


Univ. of New Mexico 


Austin, TX 78718 


1 Iniv nf Npw South AValpc 


33720 Tampere 


Jon Bryan (505) 298-3292 




Peter Tregeagle 


+358-31-184246 




Dallas Chapter 


10 Binda Rd., Yowie Bay 




■ NEW YORK 


4th Thurs., 7:30 p.m. 


2228 


• HOLLAND 


FIG, New York 


Texas Instruments 


02/524-7490 


Holland Chapter 


2nd Wed., 7:45 p.m. 


13500 N. Central Expwy. 




Vic Van de Zande 


Manhattan 


Semiconductor Cafeteria 


• BELGIUM 


Finmark 7 


Ron Martinez (212) 866-1157 


Conference Room A 


Belgium Chapter 


3831 JE Leusden 




Clif Penn (214) 995-2361 


4th Wed., 8 p.m. 




Rochester Chapter 




T a\\c Van T i\r\r\r 

uUIV T all uUUv& 


• ITALY 


Odd month, 4th Sat., 1 p.m. 


Houston Chapter 


I^rik<tdreff 20 


FIG Italia 


Monroe Comm. College 


3rd Mon., 7:45 p.m. 


2120 Schoten 


Marco Tausel 


Bldg. 7, Rm.102 


Intro Class 6:30 p.m. 


03/658-6343 


Via Gerolamo Forni 48 


Frank Lanz&f&rnc 


Univ. at St. Thomas 




20161 Milano 


(716)482-3398 


Russell Harris (713)461-1618 


Southern Belgium Chapter 


02/435249 






Jean-Marc Bertinchamps 




• OHIO 


• VERMONT 


Rue N. Monnom, 2 


• JAPAN 


Cleveland Chapter 


Vermont Chapter 


B-6290 Nalinnes 


Japan Chapter 


4th Tues., 7 p.m. 


Vergennes 


071/213858 


Toshi Inoue 


Chagrin Falls Library 


3rd Mon., 7:30 p.m. 




Dept. of Mineral Dev. Eng. 


Gary Bergstrom 


Vergennes Union High School 


• CANADA 


University of Tokyo 


(216) 247-2492 


RM 210, Monkton Rd. 


BC FIG 


7-3-1 Honeo Bunkvo 1 1 3 




Hal Clark (802) 453-4442 


1st Thurs., 7:30 p.m. 


812-2111 x7073 


• Columbus FIG Chapter 




BCIT, 3700 Willingdon Ave. 




4th Tues. 


• VIRGINIA 


BBY, Rm. 1A-324 


• NORWAY 


Kal-Kan Foods, Inc. 


First Forth of Hampton 


Jack W Brown C6041 596- 


Bergen Chapter 


5115 Fisher Road 


Roads 


9764 


Kjell Birger Faeraas, 


Terry Webb 


William Edmonds 


BBS (604) 434-5886 


47-518-7784 


(614) 878-7241 


(804) 898-4099 








Northern Alberta Chapter 


• REPUBLIC OF CHINA 


Dayton Chapter 


Potomac FIG 


4th Sat 1 Oa m -nnnn 


R.O.C Chanter 


2nd Tues. & 4th Wed., 6:30 


D.C. & Northern Virginia 


N.Alta. Inst, of Tech. 


Chin-Fu L,iu 


p.m. 


1st Tues. 


Tony Van Muyden 


5F, #10, Alley 5, Lane 107 


CFC. 11 W. Monument Ave. 


Lee Recreation Center 


(403) 486-6666 (days) 


Fu-Hsin S. Rd. Sec. 1 


#612 


5722 Lee Hwy., Arlington 


(403) 962-2203 (eves.) 


TaiPei, Taiwan 10639 


Gary Ganger (513) 849-1483 


Joseph Brown 






(703)471-4409 


Southern Ontario Chapter 


• SWEDEN 


• OREGON 


E. Coast Forth Board 


Quarterly, 1st Sat., Mar., Jun., 


SweFTG 


Willamette Valley Chapter 


(703) 442-8695 


Sep., Dec, 2 p.m. 


Per Aim 


4th Tues., 7 p.m. 




Genl. Sci. Bldg., RM 212 


46/8-929631 


Linn-Benton Comm. College 


Richmond Forth Group 


McMaster University 




Pann McCuaig (503) 752-5113 


2nd Wed., 7 p.m. 


Dr. N. Solntseff 


• SWITZERLAND 




154 Business School 


(416) 525-9140 x3443 


Swiss Chapter 


• PENNSYLVANIA 


Univ. of Richmond 




Max Hugelshofer 


Villanova Univ. FIG Chapter 


Donald A. Full 


Toronto Chanter 


Industrieberatung 


Bryan Stueben 


(804) 739-3623 


John Clark Smith 


Ziberstrasse 6 


321-C Willowbrook Drive 




PO Box 230, Station H 


8152 Opfikon 


Jeffersonville, PA 19403 


• WISCONSIN 


Toronto, ON M4C 5J2 


01 810 9289 


(215) 265-3832 


Lake Superior Chapter 








2nd Fri., 7:30 p.m. 


• ENGLAND 


SPECIAL GROUPS 


• TENNESSEE 


1219 N. 21st St., Superior 


Forth Interest Grnnn-IIK 


• NC4000 Users Group 


East Tennessee Chapter 


Allen Anway (715) 394-4061 


London 


John Carpenter 


Oak Ridge 




1st Thurs., 7 p.m. 


1698 Villa St. 


2nd Tues., 7:30 p.m. 




Polytechnic of South Bank 


Mountain View, CA 94041 


Sci. Appl. Int'l. Corp., 8th Fl 


INTERNATIONAL 


RM408 


(415) 960-1256 (eves.) 


800 Oak Ridge Turnpike 


• AUSTRALIA 


Borough Rd. 


Richard Secrist 


Melbourne Chapter 


D J Neale 




(615) 483-7242 


1st Fri., 8 p.m. 


58 Woodland Way 






Lance Collins 


Morden Surrv SM4 4DS 

l"t VI V4V11| k^Ull T X " l^T 






65 Martin Road 






Glen Iris, Victoria 3146 








03/29-2600 








BBS: 61 3 299 1787 
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NEW PUBLICATIONS 






Silicon Composer!, Inc 
310 California Avenue, Suite K. Pal" Alio, CA «J4W> 



$35 EACH 

NOW AVAILABLE 
FROM THE FORTH INTEREST GROUP 



Forth Interest Group 

P.O.Box 8231 

San Jose, CA 95155 



Second Class 
Postage Paid at 
San Jose, CA 



